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LE FLASH !!! 

ON EST FAIT 
L'UN 

POUR L' AUTRE... 



Nos cartes coprocesseurs permettent de transformer litteralement un Apple //en lui donnant 
une vitesse 2 a 20 fois superieure en Applesoft ou en Pascal et/ou une compatibility 
en assembleur ou en langage evolue avec les nouveaux micros du marche. 

LA PERFORMANCE 




carte AD 8088 

16 bits, CP/M-86 
APPLESOFT ultra rapide ! 

Sans modifier une ligne des programmes APPLESOFT, la 
vitesse est multipliee par un coefficient de 2 a 4. La carte 
permet d'utiliser CP/M-86 bientot MS/DOS, le processeur 
arithmetique rapide 8087 a une vitesse epoustouflante. 
Memoire extensible a 192 Ko. Fonctionnement simultane 
du 6502 et de plusieurs cartes AD 8088 possible. 




carte 6502 C 

100% compatible 
4 fois plus rapide. 

Quel que soit le programme, quel que soit le langage. 
le microprocesseur 6502 C (3.6 MHZ) divise par 3,6 le 
temps d'execution. Aucune modification ni materiel, ni 
logiciel. La carte comporte 64 Ko de memoire ; 2 ver- 
sions : Apple II +, et Apple //e. 




carte 68000 

Vitesse, puissance. A venir. 



Le microprocesseur le plus puissant. 3 versions 8, 12.5 et 14 MHZ. 128 Ko de memoire sur la carte extensible a 812 Ko. 
Entierement compatible avec APPLESOFT et DOS 3.3 qu'elle accelere dans un rapport de 3 a 20 selon les program- 
mes. UCSD-p System complet disponible en version IV.I avec PASCAL. BASIC. FORTRAN. Developpements 
possibles sous UCSD pour IBM PC et XT, VICTOR SI, RAINBOW 100. GOUPIL III, etc., sans recompilation. 
Le 68000 equipe LISA et MC INTOSH ! 



department 29, bd gambetta - 38000 grenoble 

»»CC * tel. (76) 43.19.97 

CHrr USIOn DISTRIBUTEES DANS TOUTE LA FRANCE 





Editorial 



D'aucuns annongaient la mort lente d'Appte, etant donne la concurrence de I' IBM PC et des nouveaux 
16 et 32 bits a haut rapport performance prix. tels que \e QL de Sinclair. Or. tout d'abord. on constate 
que les nouveaux produits concurrents n'ont pas toujours une naissance sans probleme : ainsi. le QL 
connalt-il en ce moment des difficultes avec des bugs dans son QDOS et des erreurs de conception 
dans un de ses circuits speciaux. En outre, la sortie du Macintosh a prouve qu'il fallait encore compter 
avec Apple : la demande est telle aux Etats-Unis qu'il est question de lancer une campagne de publicite 
sur le theme « Nous savions qu'il s en vendrait un million : nous ne savions pas que cela se ferait en 
deux semaines... ». 

Ce douzieme numero de Pom 's vous apporte la seconde partie de la rubrique « Apprentissage de 
I'assembleur » assuree par Gerard Michel. Certains m ont fait deja fait savoir. a la suite de la premiere 
legon. que cette initiation etait la meilleure qu'ils aient jamais vu. Merci pour Gerard. Sur le plan 
pedagogique. Erick Ringot epluche aussi pour vous la fagon dont les nombres flottants sont geres par 
votre ordinateur favori. 

Grace au programme de Michel Haag. tout le monde pourra. sur Apple II Plus et e. transformer la 
carte d'extension 16K en lecteur de disquettes virtue!. II est alors possible d'y loger tous ces utilitaires 
d'usage frequent, ou de sen servir pour y placer les tables de reference des programmes Basic. En 
compensation, les « Pascaliens » apprendront avec Jacques Pino comment fake des PEEKs et des 
POKEs en Pascal. 

Comme d'habitude. vous trouverez dans ce Pom's des tas de programmes tous plus utiles les uns que 
les autres. Roland Jost montre comment cacher des programmes en assembleur a la fin des program- 
mes Basic. Dominique Bernardi illustre sa fagon de tracer rapidement des cercles en ecran haute 
resolution. Dimitri Auer vous permet enfin de creer des tableaux a dimension variable en Basic. Yvan 
Koenig propose un patch du DOS 3.3 permettant d'eliminer plusieurs de ses bugs et limitations. 
Thierry Le Tallec complete ses contributions anterieures par un editeur de shapes de toute beaute. 
Les utilisateurs d'Apple Writer sont gates cette fois-ci : Jacques Leroy transforme Apple Writer I pour 
qu'il fonctionne sur un //e. et je fournis de nombreux trues d' utilisation pour Apple Writter 11 et e. Pour 
terminer, vous verrez avec Pascal Fontanier comment imprimer les codes ESCape de votre impri- 
mante. 

Pom's vous offre encore dans ce numero une contribution importante avec le Calculateur Entier de 
Jacques Duma ; vous pourrez effectuer avec votre Apple II des calculs avec 500 chiffres significatifs. 
Comme il fallait 15 pages rien que pour le listing source en assembleur. nous n'avons pu le mettre que 
sur la disquette d'accompagnement : par contre. les lecteurs courageux (ou obstines) pourront repren- 
dre le programme a partir du code objet publie avec I' article... Olivier Herz utilise le Calculateur Entier 
pour s'attaquer a la question metaphysique que tous se posent : EXP (PT l: SQR(163i) est-il entier ? 

Les bancs d'essai restent au gout du jour : Guy Lapautre a decortique Magic Mailer et Charts Unlimi- 
ted : il nous presente en outre le nouveau service MEM TERM. L'integrite de nos bancs d'essai est 
garantie par le fait que nous ne recevons pas de publicite en echange de nos analyses. 

La sortie du Macintosh signifie-t-elle la disparition progressive de la ligne Apple II et /le ? L' article de 
Daniel Garric et la rubrique Micro-Informations, tenue a present par Jean-Michel Gourevitch. vous 
prouvent le contraire : les nouveaux produis //c et (l/x ?) vont completer la gamme en respectant autant 
que possible le sacro-saint principe de la compatibility. Olivier Herz complete ces reflexions sur le 
marche de la micro-informatique en nous parlant du Japon. 

Herve Thiriez 



Ont collabore a ce numero : Dimitri Auer - Dominique Bernardi - Jean-Michel Boyer - Alexandre Duback - Jacques Duma - Pascal 
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Leroy - Thierry Le Tallec - Guy Mathieu - Gerard Michel - Jacques Pino - Erick Ringot - Herve Thiriez. Redacteurs : Alexandre Avrane - 
Gerard Michel. Dessins : Laurent Bidot. Directeur de la publication - redacteur en chef : Herve Thiriez Siege social et abonne- 
ments : Editions MEV - 49. rue Lamartine - 78000 Versailles - Redaction et courrier des lecteurs : 59. Bd Glatigny - 78000 Versailles - 
Tel. : (3) 951.24.43. 
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DISQUETTES ET MINI DISQUETTES TOUTES CONFIGURATIONS 




- Certification unitaire 100% sans erreur. 

- Duree de vie : 30 millions de revolutions 
(standard de I'lndustrie 3,5 millions de revolutions). 

- Anneau de renforcement en standard sur le 5 ^ 4 ". 

- 5 1/4 " en 48 et 96 TPI, simple et double face. 



BFI ELECTRONIQUE - 9 RUE YVART - 
75015 PARIS. 
Tel. 533-01-37. 
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Ce programme transforme les 16K 
de la carte langage en pseudo-dis- 
quette (disque virtuel) : c'est-a-dire 
que la carte langage se comportera 
comme un lecteur de disquettes a 
acces tres rapide (et a capacite res- 
treinte). II est transparent au Basic et 
au File Manager du DOS. Le pro- 
gramme FID fonctionne sans diffi- 
culte avec la pseudo-disquette ainsi 
formee par les 16 K de la carte lan- 
gage. 

Exemples ({'utilisation 

On a souvent besoin, lors de la mise 
au point d'un programme, de plu- 
sieurs utilitaires. Ceux-ci peuvent etre 
disponibles sur la pseudo-disquette. 

Certains programmes doivent fre- 
quemment acceder a un fichier texte 
pour le modifier ou le completer. Si 
on le transfere sur la pseudo-dis- 
quette, il ne sera plus necessaire d'at- 
tendre que la disquette se mette a 
tourner et qu'elle veuille bien presen- 
ter le secteur voulu sous la tete de 
lecture. Les lectures et ecritures pren- 
dront moins de temps, surtout si le 
fichier est a acces direct. 

Remarque aux debutants 

Si les paragraphes expliquant le fonc- 
tionnement du programme vous de- 
passent, vous pouvez sauter directe- 
ment a la partie "Utilisation" de cet 
article. On peut en effet parfaitement 
utiliser ce programme sans pour au- 
tant comprendre son fonctionnement 
(ccmbien de conducteurs connaissent 
la mecanique ?). 

Fonctionnement du 
programme 

A chacune des 64 pages de MEV de 
la carte langage est associe un sec- 
teur. Les trois premieres pages de la 
premiere tranche de 4K de la carte 
langage. comprises entre $D000 et 
$D2FF. correspondent aux trois pre- 
miers secteurs de la piste 17. lis 
contiennent la VTOC (Volume Table 
Of Contents) en page $D0 et un ca- 
talogue (directory) de deux secteurs. 
Les 13 autres pages de cette tranche 
correspondent aux secteurs 3 a 16 
de la piste 3. Les pistes 4. 5 et 6 
sont associees a la seconde tranche 
de 4K et a la zone $E000-$FFFF de 
la carte langage. 

Le programme a ete scinde en deux 
modules : un module d' initialisation. 
RWLCINIT (utilise une seule fois) et 
un module d'acces aux "pistes" et 
"secteurs" de la carte langage. Ce 
second module, baptise RWLC, reste 
en memoire apres I' initialisation. 

Module RWLCINIT 

Ce premier module construit la 
VTOC et un catalogue de 2 secteurs 



Disque virtuel 16 K 

Michel Haag 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 



: » * 

: « RWLC » 

: » * 

;« MICHEL HAAG (NOV 83) « 



ORG SBEB0 
OBJ S800 

•EMULATEUR DE DISQUETTE 

W 

• UTILISE LA CARTE LANGUAGE POUR SIMULER 
;UNE DISQUETTE DE 4 PISTES 



17 










18 


IOBP 


EPZ 


S48 




19 


PTR 


EPZ 


S2A 


;PAGE = "SECTEUR" 


20 


BUFPTR 


EP2 


S3E 


21 


SECT 


EPZ 


S2D 




22 
23 


TRACK 


EPZ 


S2E 




24 


TRK 


EQU 


S4 




25 


SEC 


EQU 


S5 




26 


BUF 


EQU 


$8 




27 


CMD 


EQU 


SOC 




28 


DRV 


EPZ 


S02 




29 










30 


RWLC 


STY 


IOBP 




31 




STA 


I0BP*1 




32 




LDY 


#DRV 


;TOUT APPEL DE RWTS EST 


33 




LDA 


(IOBP) ,Y 


; AIGUI LLE SUR RWLC. LE 


34 




CMP 


#2 


; CONTROLE EST REDONNE A RWTS 


35 




BEQ 


RWLC1 


;SI LE LECTEUR EST Dl 


36 




JMP 


SBD03 




37 










38 


; TRANSFERT DE POINTEURS 


EN PAGE ZERO 


39 










40 


RWLC1 


LDY 


#BUF 


: BUFFER DANS BUFPTR 


41 




LDA 


(IOBP) , Y 




42 




STA 


BUFPTR 




43 




INY 






44 




LDA 


(IOBP) , Y 




45 




STA 


BUFPTR*1 




46 




LDY 


#SEC 


; SECTEUR DANS SECT 


47 




LDA 


(IOBP) , Y 




48 




STA 


SECT 




49 




LDY 


#TRK 


;PISTE DANS TRACK 


50 




LDA 


( IOBP) , Y 




51- 




STA 


TRACK 




52 










53 


; DETERMINATION DU BLOCK 


DE 4K 


54 










55 




CMP 


#S11 


;VTOC OU DIR. 


56 




BEG 


RAMI 




57 




CMP 


#3 




58 




3 EG 


RAMI 


;PISTE 3 = 1ER5 4K DE LA L.C 


59 




BMI 


ERR 




60 




CMP 


#7 




61 




BPL 


ERR 




62 


RAM2 


LDA 


SC083 


:PISTE 4,5 OU 6 : 


63 




LDA 


SC083 


;0N COMMUTE LA PREMIERE ZONE 


64 




LDA 


#00 


; DE 4K DE LA CARTE 


65 




STA 


PTR 




66 




LDA 


TRACK 


:PTR - D0-S10- (TRACK-4) -SECT 


67 




SEC 






68 




SBC 


#S04 




69 




ASL 
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sur la carte langage. II procede en- 
suite a quelques modifications du 
DOS. Sur la table d'occupation du 
VTOC, seuls les secteurs existant ef- 
fectivement sont signales comme 
etant libres. RWLCINIT met ensuite 
un BRK ($00) en $BEAF et inhibe la 
commande DOS 1NIT. II place enfin 
un JMP $RWLC a lentree de RWTS 
en $BD00. 

Module RWLC 

Ce second module debute en $BEB0 
et comporte 144 octets. II recouvre 
done en partie la commande INIT du 
DOS. Tout appel de RWTS est ai- 
guille vers RWLC. Si le lecteur 
concerne est le lecteur 1, RWLC re- 
donne le controle a RWTS. Si e'est 
le lecteur 2. RWLC determine la 
page de la carte langage qui est invo- 
quee et procede aux echanges de- 
mandes entre cette page et le buffer 
pointe par HOB. Si les appels de 
RWTS sont effectues par le File Ma- 
nager du DOS, il sera automatique- 
ment tenu compte de la VTOC creee 
par RWLCINIT. Le File Manager ne 
fera reference qu'a des secteurs exis- 
tant effectivement sur la carte lan- 
gage. Si par contre on ne souhaite 
pas tester soi-meme les numeros de 
secteur et piste, il faut eviter d'acce- 
der directement a la carte langage 
par RWTS, qui continuera cependant 
a donner des resultats parfaitement 
normaux sur le lecteur 1. 

Utilisation du 
programme 

Ce programme ne peut fonctionner 
que si une carte langage est installee, 
et non deja utilisee par le programme 
(ou un langage, ou un DOS reloge). 
II faut faire, dans l'ordre : 

BLOAD RWLC. OBJ 
BRUN RWLCINIT.OBJ 

On peut a la place executer un fi- 
chier EXEC qui contiendrait ces deux 
commandes. La pseudo-disquette 
s'est maintenant substitute au se- 
cond lecteur qui, par consequent, ne 
peut plus etre utilise par le pro- 
gramme. Tout ordre du DOS suivi 
de ",D2" invoquera dorenavant la 
pseudo-disquette. De plus, comme 
dans le cas d'un lecteur reel, le dis- 
que utilise par defaut restera le dis- 
que virtuel jusqu'au prochain appel 
du drive 1 (par exemple avec CATA- 
LOGD1). Les programmeurs posse- 
dant deux lecteurs pourront decon- 
necter RWLC et retrouver le second 
lecteur par POKE 48825,0. Pour re- 
connecter RWLC. il suffira de faire 
POKE 48825,2. 

Pour echanger des fichiers entre la 
disquette 1 et la pseudo-disquette, il 
sera commode d'utiliser le FID. Enfin 
un dernier avertissement : les infor- 
mations contenues sur la carte lan- 



70 




ASL 
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ASL 




72 




ASL 




73 




ADC 


#SD0 


74 




ADC 


SECT 


75 




STA 


PTR-1 


76 




BCC 


EXQ 


77 


RAMI 


LDA 


#S00 


78 




STA 


PTR 


79 




CLC 




80 




LDA 


SECT 


81 




ADC 


#SD0 


82 




STA 


PTR*1 


83 




LDA 


SC08B 


84 




LDA 


SC08B 


85 


EXQ 


LDY 


#CMD 


86 




LDA 


< IOBP) , Y 


87 




CMP 


#0 


88 




BEO 


RET 


89 




CMP 


#1 


90 




BEQ 


READ 


91 




CMP 


#2 


92 




BEQ 


WRITE 


93 


ERR 


SEC 




94 


RET 


LDA 


SC082 


95 




LDA 


SC08A 


96 




RTS 




97 








98 


READ 


LDY 


#S00 


99 


BR1 


LDA 


(PTR) , Y 


100 




STA 


( BUFPTR) , Y 


101 




DEY 




102 




BNE 


BR1 


103 




CLC 




104 




BCC 


RET 


105 


WRITE 


LDY 


#S00 


106 


BW1 


LDA 


(BUFPTR) , Y 


107 




STA 


(PTR) , Y 


108 




DEY 




109 




BNE 


BW1 


110 




CLC 




111 




BCC 


RET 


112 


LENGTH 




•-RWLC 


113 




END 





: TOU JOURS BRANCHE 
:PISTE 3 OU Sll : 

:CALCUL DE LA PAGE 



: COMMUTE LA 2IEME 20NE 
: "LECTURE" OU "ECRITURE" 



;PR0V0QUE UN I/O ERROR 
:C0MMUTE LA MEM 



;LIT UN "SECTEUR" 



;ECRIT UN "SECTEUR" 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 



» » 

* RWLCINIT • 

» * 

» MICHEL HAAG ( NOV 83) 

* « 

ORG S8000 
OBJ S803 



PTR 



EPZ S2A 



; INITIALISE UN VTOC ET UN DIRECTORY SUR LA PREMIERE 
;Z0NE DE 4K DE LA CARTE , PAGE DO, Dl ET D2 . MODIFIE 
; LE DOS. 



1 NIT: 



LDA SC08B 
LDA SC08B 
LDA #0 
STA PTR 
LDA #SD0 
STA PTR*1 



; VALIDE LA 1ERE TRANCHE DE 4K 
; DE MEV DE LA CARTE LANGAGE 
; MET LE VTOC ET LE DIR A 
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gage sont volatiles et disparaissent 
avec i'extinction de l'appareil: il fau- 
dra done penser (en fin de seance) a 
transferer sur une disquette reelle le 
contenu de la carte langage si Ton 
souhaite le conserver. 

Pour les adresses du DOS et la cons- 
truction de la VTOC. voir Beneath 
Apple DOS. de Worth et Lechner. 
Pour l'inhibition de la commande 
INIT. voir "Une incursion dans les 
mysteres du DOS" (Pom's 2). 




Recapitulation RWLC.OBJ 



BEBO- 


84 


48 


85 


49 


AO 


02 


Bl 


48 


BEB8- 


C9 


02 


FO 


03 


4C 


03 


BD 


AO 


BECO- 


08 


Bl 


48 


85 


3E 


C8 


Bl 


48 


BEC8- 


85 


3F 


AO 


05 


Bl 


48 


85 


2D 


BEDO- 


AO 


04 


Bl 


48 


85 


2E 


C9 


11 


BED8- 


FO 


25 


C9 


03 


FO 


21 


30 


40 


BEE0- 


C9 


07 


10 


3C 


AD 


83 


CO 


AD 


BEE8- 


83 


CO 


A9 


00 


85 


2A 


A5 


2E 


BEFO- 


38 


E9 


04 


OA 


OA 


OA 


OA 


69 


BEF8- 


DO 


65 


2D 


85 


2B 


90 


11 


A9 


BFOO- 


00 


85 


2A 


18 


A5 


2D 


69 


DO 


BF08- 


85 


2B 


AD 


8B 


CO 


AD 


8B 


CO 


BF10- 


AO 


oc 


Bl 


48 


C9 


00 


FO 


09 


BF18- 


C9 


01 


FO 


OC 


C9 


02 


FO 


14 


BF20- 


38 


AD 


82 


CO 


AD 


8A 


CO 


60 


BF28- 


AO 


00 


Bl 


2A 


91 


3E 


88 


DO 


BF30- 


F9 


18 


90 


ED 


AO 


00 


Bl 


3E 


BF38- 


91 


2A 


88 


DO 


F9 


18 


90 


El 



Recapitulation 
RWLCINIT.OBJ 

8000- AD 8B CO AD 8B CO 

85 2A A9 DO 85 2B 

AO 00 91 2A 88 DO 

2B A5 2B C9 D3 DO 

DO 85 2B AO 06 B9 

91 2A 88 10 F8 A9 

27 DO A9 03 8D 30 

01 8D 31 DO 8D 37 

23 8D 34 DO A9 10 

DO A2 04 A9 FF AO 

44 DO C8 99 44 DO 

CS CA DO F3 A9 F8 



8008 
8010 
8018 
8020 
8028 
8030 
8038 
8040 
8048 
8050 
8058 
8060 
8068 
8070 
8078 
8080 
8088 
8090 



DO E6 2B 
2A C8 A9 
82 CO AD 
8B 80 99 
A9 00 8D 



AO 01 

02 91 

8A CO 

00 BD 88 

AF BE A9 



A9 00 
A9 00 
FB E6 
EF A9 
8F 80 
7A 8D 
DO A9 
DO A9 
8D 35 
00 99 
C8 C8 
8D 45 
A9 11 91 
2A 18 AD 
AO 03 B9 
88 10 F7 
5B 8D 



84 A8 60 4C BO BE EA 04 
11 01 03 00 00 FE 





D O 
DJ 


LDA 


#0 








LDY 


#SO0 




•Si 


dZ 


STA 


(PTR) , Y 




3Z 




DE Y 






JO 




BNE 


B2 




oft 




INC 


PTR + 1 




35 




LDA 


PTR* 1 




36 




CMP 


#SD3 




o / 




BNE 


B3 




"3 A 












; v i 








dO 
4U 


r 








d 1 
H ± 




^DA 


#SD0 


;o rnhPlitKo UO I h J o DU VTOC 


QZ 




STA 


PTR + 1 




4j 




LDY 


#06 




A A 


LJ 1 


LDA 


VTOCTBL , Y 




H 3 




STA 


< PTR) , Y 




A CL 
4b 




DEY 






a~J 




DDI 


Dl 




A ft 




LDA 


#S7A 


; UO 1 h I b 8 A S37 


A O 




STA 


SD027 




DU 




LDA 


#S03 


;DtKNlhKE PISTE ALLOUEE 


-J X 




jln 


SD030 




so 




j r» a 
L-Llfl 


#S01 








b I A 


SD031 




<-)** 




b 1 A 


SD037 


. occ 1~1(^TCTQ / C? r T 

ucitlo/bhCT 


55 




LDA 


#S23 


;S23 (35) PISTES 


56 




STA 


SD034 




■^7 




LDA 


#S10 


• ftl i*i CU^TCTIDC / DTCTC 

;»1U bhC 1 hUKb/FI b Th. 


CO 
JO 




STA 


SD035 




CO 

jj 










A n 
OU 


; TABLE D' OCCUPATION DU 


VTOC 


C 1 










OZ 




LDX 


#4 


;Lhb flblfcb 3, 4 ET 5 


oo 




LDA 


#SFF 


; bUN 1 Ltb btULcb LIBKbb 






LDY 


#0 




faj 


B4 


STA 


SD044 , Y 




fab 




INY 






b / 




STA 


SD044, Y 




DO 




INY 






CO 




INY 






/ KJ 




INY 






7 1 




DEX 






/ Z 




BNE 


B4 




—J Q 




LDA 


#SF8 


;3AUF LES SECTEURS 0,1 ET 2 


"7 A 




STA 


SD045 


; Dh LA PISTE Sill 












/b 


; DIRECTORY 






77 










7ft 




INC 


PTR*1 


• DDnrilfiTKI QCTi^XCIlD Pill nTO 


7Q 




LDY 


#1 


< DTQTC C: 1 1 CCPTCIID O 

,'riDlh Sll, bbOIbUK z 


ft A 




LDA 


#311 




ft 1 
o 1 




STA 


(PTR) , Y 




ft o 
oZ 




INY 






po 
od 




LDA 


#2 




ft A 




STA 


(PTR) , Y 




Q C 

OJ 




CLC 






ofa 




LDA 


SC082 


;0UnnUlh LA MEM 


ft "7 




LDA 


SC08A 




ft ft 










ft Q 


;M0DIFIE 


LE DOS 




QO 
?U 


» 








y 1 




LDY 


#03 


• fiT(~HTi i c tout a nnci 
; fllbUlLLb I UU 1 AFPhL 




B5 


LDA 


PATCHTBL, Y 




QO 




STA 


SBDOO, Y 








DEY 










BPL 


B5 




or 

yb 




LDA 


#S00 


. f7UnrT/~lirT MUTT TmlTfTA' TC , AT , T"i ,_ i»l 

;tnPhCHE UNE INITIALISATION 


Q7 




STA 


SBEAF 




Q ft 




LDA 


#S5B 


• nor >i?r" >i-ittr7 itii cmt^v r*r*»i~i noun 

;FKUVUUUh UN bNlX ERR POUR 






STA 


SA884 


;lUUlt UlILIbATION Dh INIT 


x vjsj 




RTS 






1 VI 


PATCHTBL 


JMP 


SBEBO 


.unriTrTPAT'inn t"iii nnc 

MODIFICATION DU DOS 


102 




NOP 






103 


VTOCTBL 


BYT 


S4,S11,S1 , 


S3,0,0,SFE 


104 


LENGTH 




--INIT 




105 




END 
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Charts Unlimited a l'essai 

Guy Lapautre 



Charts Unlimited est un editeur gra- 
phique (ou plus precisement un aide 
a la realisation de dessins) vendu 
$195 par Graphware (5084 Mosiman 
Road - Middletown - OH 45042). II 
se presente sous la forme desormais 
classique d'un classeur rigide, avec 
documentation et une disquette. Ce 
programme n'est pas encore, a notre 
connalssance, vendu en France. 

II est destine a creer et a imprimer 
des schemas et dessins tels que : or- 
ganigrammes, ordinogrammes de 
traitement, synoptique de processus 
industriels, etc. II ne peut pas servir 
directement a representer des series 
numeriques comme le font des logi- 
ciels tels que Visiplot, Decisionnel 
Graphique (essai dans le Pom's 10), 
Business Graphics ou PFS-Graph. 

Les avantages et inconvenients de 
Charts Unlimited sont evalues en 
fonction de ce qu'un utilisateur est 
en droit d'attendre d'un tel logiciel, 
avec parfois reference implicite ou 
explicite a d'autres logiciels de meme 
objectif. lis sont presentes sous 7 
tetes de chapitres : 

1 - Apprentissage du logiciel 

2 - La "page" ecran 

3 - Fonctions de dessin disponibles 

4 - Objets et symboles 

5 - L'edition sur imprimante 

6 - UHlitaires : gestion des disques, 

liaisons externes 

7 - Documentation 

Apprentissage du 
logiciel 

L'abord du logiciel est assez aise : il 
se fait grace a un "Tutorial" qui 
consiste a tracer un organigramme 
d'entreprise, et permet de couvrir la 
plupart des fonctions du logiciel. 

Une fonction "AU SECOURS", invo- 
quee par la touche "?", propose un 
simple synoptique des commandes 
disponibles. 

On pourra s'etonner du choix fait 
pour les lettres plus ou moins mne- 
motechniques permettant l'appel des 
commandes (meme en Anglais) : E 
(pour "ERASE") ou D (pour "DASH 
LINE"), d'accord, mais B pour desi- 
gner des "OBJETS STANDARDS" 
ou Y pour definir des objets... 

II faut s'habituer au mode de depla- 
cement du curseur : 8 lettres pour les 

8 directions dans toutes les comman- 
des, sauf en mode texte ou Ton re- 
trouve les 4 fleches de direction 
(pour 1' Apple lie). 

II est assez commode de configurer 
son systeme imprimante/interface ... 
a condition que ces deux materiels fi- 
gurent dans les listes proposees. 
Sinon, quelques tatonnements sup- 
plementaires semblent conduire en 
general a un resultat satisfaisant. 



Avantages : Simplicity d'emploi - 
Nombreuses fonctionnalites d'un 
abord aise - Ecran clair. 

Inconvenients : Codes de comman- 
de pas toujours evidents - Quelques 
problemes dans le maniement du 
curseur. 

Synthese : Dans 1' ensemble, pas de 
gros reproches, malgre quelques in- 
commodites mineures. Un "Tutorial" 
bien fait. On commence a "se de- 
brouiller" avec Charts Unlimited en 2 
heures environ. 



La "page" ecran 

L' ecran est une fenetre de 37 colon- 
nes sur 19 lignes dans une page de 
123 colonnes sur 90 lignes. Des 
echelles placees en haut et a gauche 
de l'ecran montrent a quel endroit 
on se trouve dans la page. 

En bas, une ligne de commande per- 
met de savoir quelle est la fonction- 
nalite en cours. Chaque commande 
est appelee par une lettre code. On 
en ressort TOUJOURS par la touche 
ESC. 

Nous avons deja parle du positionne- 
ment du curseur. Sauf en mode 
texte, il se fait par le groupe assez 
traditionnel de lettres "U I O J K N 
M <" pour obtenir les 8 directions 
de deplacement; il vaut done mieux 
etre en mode US sur un clavier lie. 
Les 4 fleches de direction (version 
He) servent a un deplacement rapide, 
jusqu'aux bords de l'ecran. 

En mode texte, les deplacements se 
font avec les 4 fleches: RETURN ren- 
voie a la ligne suivante, DEL efface 
le caractere sous le curseur (et non le 
precedent...) et CTRL-I cree un es- 
pace (pour insertion). 

On a souvent besoin de designer une 
zone rectangulaire de l'ecran : sauve- 
garde, duplication,... Ceci se fait 
commodement en se placant succes- 
sivement dans les angles superieur 
gauche et inferieur droit, et en "mar- 
quant" ces angles par RETURN. 

Par ailleurs, une fonction "VIEW" 
permet d'obtenir, dans un petit rec- 
tangle en bas et a droite, un fac-si- 
mile reduit de la page entiere. 

Avantages : Ecran clair - Vision tres 
commode de la page entiere - Mode 
unique d' entree et sortie de chaque 
commande - Puissance de la notion 
de "zone". 



Inconvenients : Quelques petits 
problemes de deplacement du cur- 
seur - La designation de zones est 
parfois une commodite ... dange- 
reuse : on peut, en l'omettant, perdre 
completement le resultat d'une 
seance de travail. 

Synthese : La encore, les avantages 
l'emportent sur les inconvenients. On 
regrettera toutefois qu'il n'y ait pas 
un verrouillage de la fonction de sau- 
vegarde quand on a omis de desi- 
gner prealablement la zone a sauve- 
garder. 

Les fonctions de dessin 
disponibles 

Elles sont designees ci-dessous par 
leur equivalent en frangais. 

TEXTE : permet l'ecriture de tous 
les caracteres imprimables. L'ecriture 
ne peut pas traverser un dessin deja 
fait. Elle est limitee a l'interieur d'une 
case, ou a une zone vide,... 

LIGNES : droites pointillees (Dash) 
ou pleines (Solid) tracees grace aux 
8 touches de direction. Quelques 
petits problemes de jonction selon les 
sens successifs de trace. 

OBJETS : on designe par ce voca- 
ble des elements de dessin pre-eta- 
blis. II existe un jeu dit "standard" de 
36 elements, qu'on peut manipuler, 
agrandir, deformer, ... (un mini 
"Lisa-Draw", par anticipation). L'uti- 
lisateur peut creer autant de jeux 
qu'il le souhaite (on trouve une cer- 
taine analogie avec le logiciel de trai- 
tement de texte Gutenberg - voir 
Pom's 11). Mais les fonctions 
d'agrandissement ne sont pas dispo- 
nibles. 

SYMBOLES : analogues aux objets, 
au nombre de 26, non transforma- 
bles. L' utilisateur ne peut pas creer 
ses propres jeux. 

DUPLICATION : reproduction, 1 ou 
n fois, d'une "zone", a intervalles 
equidistants sur une ligne (encore 
une idee reprise et developpee dans 
Lisa-Draw). 

EFFACEMENT : d'un point, ou 
d'une zone. 

Avantages : Nombreuses fonction- 
nalites que Ton ne retrouve qu'avec 
des outils plus puissants mais sensi- 
blement plus couteux. 

Inconvenients : lis ne seraient sans 
doute pas cites si on n'avait pas vu 
plus fort depuis... mais pas sur le 
meme materiel ni au meme prix... 
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On pourra, a la rigueur, regretter 3 
choses : 1' impossibility d'agrandir les 
objets utilisateur, le manque d'acces 
aux points elementaires sur l'ecran 
(voir Micro Painter, E-Z Draw ou 
Koala Pad), et enfin l'absence d'un 
outil de calcul associe. 

Synthese : Certains produits recents, 
sur des ordinateurs plus puissants, ou 
sur Apple II avec des complements 
materiels et logiciels peu economi- 
ques, nous ont habitues a d'excellen- 
tes performances dans le dessin. 
Charts Unlimited n'atteint evidem- 
ment pas ces performances. Mais, 
par sa simplicity comme par son prix, 
c'est un outil remarquable aux nom- 
breuses fonctionnalites. 

Objets et symboles 

La palette offerte comprend une 
planche de 36 objets dits "standard", 
dont beaucoup sont inspires des des- 
sins d'ordinogrammes, et une plan- 
che de 26 symboles varies. La fonc- 
tion de creation permet a 1' utilisateur 
de creer autant de planches de 26 
objets qu'il le souhaite, en partant 
d' objets ou symboles existants, de 
traces nouveaux et de textes. 

Les objets standards peuvent de plus 
etre agrandis dans une ou deux di- 
rections (suivant les objets), et par 
consequent deformes. Un cercle peut 
devenir un ovale, un petit carre un 
grand rectangle, etc. Symboles et 
objets utilisateur ne peuvent pas etre 
modifies dans leurs forme et dimen- 
sions. 

Avantages : Traces rapides, et tres 
simples des lors qu'on a constitue sa 
(ses) propre(s) planche(s) d'objets - 
Appel rapide, mais seules les plan- 
ches d'objets standards et de symbo- 
les peuvent etre visualisees a l'ecran. 

Inconvenients : II est regrettable 
que les objets crees par l'utilisateur 
ne disposent pas des memes fonc- 
tionnalites que les objets standards - 
Impossibility de travailler au niveau 
du point elementaire. 

Synthese : L'idee des "planches 
d'objets", qui a ete reprise par des 
produits modernes plus dispendieux, 
est une des grandes forces de Charts 
Unlimited. Quel dommage que l'utili- 
sateur ne puisse pas, a son gre, utili- 
ser ses propres objets en place des 
objets standards. 

L'edition sur imprimante 

Un large choix d'imprimantes et d'in- 
terfaces est propose a 1' utilisateur, a 
partir d'un menu de configuration 
tres simple a utiliser. Le probleme ris- 
que de se compliquer un peu si I' im- 
primante et/ou l'interface qu'on pos- 
sede ne figurent pas dans la liste. 
Mais un peu d' habitude permet en 
general de faire des assimilations. 
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II est possible d'imprimer les graphi- 
ques, et ce en simple ou double di- 
mension, verticalement ou horizonta- 
lement sur le papier. La simple 
dimension, dite "normale" est en fait 
tres condensee (elle permet, sur pa- 
pier 21x31, l'impression d'un graphe 
de 123 colonnes dans le sens de la 
largeur du papier. Mais les dessins 
sont en reality raccourcis, ce qui in- 
troduit une deformation des objets et 
symboles. 

L'impression en double dimension 
ne double en fait que la largeur, res- 
tituant aux objets leur forme nor- 
male. Mais il est necessaire, pour un 
schema depassant une soixantaine 
de colonnes, de travailler "verticale- 
ment". A ce moment, un schema de 
123 colonnes tient juste dans une 
feuille de papier 21x31, mais seules 
les 2/3 des lignes superieures sont 
imprimees. 



Avantages : Un bon choix d'impri- 
mantes et d' interfaces - Deux possibi- 
lity de dimensions d'impression et 
deux sens pour chacune d'elles. 

Inconvenients : Une lenteur d'im- 
pression presque desesperante (les 
temps se comptent en longues minu- 
tes !). 

Synthese : Bonnes possibiltes, pour 
qui est patient... 

Utilitaires : gestion des 
disques, liaisons exter- 
nes 

Le temps de chargement du pro- 
gramme est assez long, mais on est 
ensuite tranquille. La configuration 
imprimante, etant sauvegardee sur le 
disque programme, est chargee avec 
celui-ci si on ne souhaite pas la mo- 
difier. 

Les fonctions classiques d'echange 
avec le disque sont presentes. Bien 
que le travail avec deux lecteurs soit 
plus confortable, les transferts sont 
suffisamment peu nombreux pour 
qu'on puisse se contenter d'un seul 
lecteur. 

A signaler un grave inconvenient de 
la fonction de sauvegarde : si on n'a 
pas pris la precaution de designer la 
zone a sauvegarder, 1' option par de- 
faut n'est pas 'TOUT" mais "RIEN" 
(pas d'avertissement : on a simple- 
ment l'impression d'un dysfonction- 
nement qui disparait apres deux RE- 
TURN) ... ce qui bien entendu risque 
de faire perdre un long temps de tra- 
vail et, pour comble de malheur, ef- 
face sans pitie ce qui avait ete preala- 
blement sauvegarde sous le meme 
nom. 

Par ailleurs, notons que Charts Unli- 
mited est un logiciel isole, non prevu 
pour communiquer avec d'autres lo- 
giciels commerciaux. 

Avantages : Transferts peu nom- 
breux - Configuration imprimante 
chargee avec le programme. 

Inconvenients : Le manque de pro- 
tection, ou au minimum d'avertisse- 
ment, contre une sauvegarde sans 
designation prealable de zone - L'iso- 
lement du logiciel, qui ne peut prati- 
quer d'echange avec aucun autre. 

Synthese : Peu de remarques, si ce 
n'est qu'il est difficilement admissible 
de voir dans un logiciel plein de qua- 
lites une telle absence de security. 



Documentation 

La documentation, en anglais seule- 
ment (il faut dire que le produit nous 
est arrive directement des USA), 
comporte deux parties distinctes. 
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La premiere est un "Tutorial", qui 
enseigne l'essentiel du logiciel autour 
d'un exercice sur la construction de 
I'organigramme d'une entreprise. 
C'est simple et bien fait. 

La seconde est classiquement pre- 
sentee par fonctions. Les fonctions 
apparaissent dans l'ordre alphabeti- 
que de la lettre-code qui sert a les 
appeler, done sans aucune logique. 
Si Ton se souvient par ailleurs que 
les mnemoniques sont parfois etran- 
ges, on congoit qu'il eut ete prefera- 
ble de choisir un autre ordre ! 

Ne croyez pas que 1' index final va 
apporter une aide supplementaire : il 
est alphabetique lui aussi... 

Enfin, pas de synoptique comme cela 
existe maintenant pour la plupart des 
logiciels. 

Avantages : Bonne approche par le 
"Tutorial". 

Inconvenients : Ordre de presenta- 
tion peu logique dans la partie "Ma- 
nuel de Reference" - Absence d'un 
tableau synoptique - Documentation 



en anglais seulement, mais pour un 
produit encore non commercialise en 
France. 

Synthese : C'est propre et bien pre- 
sents, comme c'est generalement le 
cas pour les documentations ameri- 
caines - Mais, a 1' exception de la par- 
tie apprentissage, c'est fort peu 
commode a exploiter. 

Conclusion 

En avance par rapport aux logiciels 
de dessin qu'on voit maintenant sur 
le marche, Charts Unlimited reste un 
produit tres attrayant et tres comperJ- 
tif, puisqu'il n'exige aucun accessoire 
materiel. 

Parmi ses faiblesses : L'isolement 
du logiciel qui, par ailleurs, ne dis- 
pose d'aucun outil de calcul - L'im- 
possibilite de descendre au niveau du 
point elementaire - Un traitement 
moins complet des objets utilisateur 
que des objets standards - Une insuf- 
fisance de securite au niveau de la 
sauvegarde. 

Et, a un moindre titre : Une impres- 



sion extremement lente - Un certain 
esoterisme dans la designation des 
commandes - Une documentation 
peu facile a exploiter. 

Parmi ses forces : De tres nom- 
breuses fonctionnalites, capables de 
satisfaire un utilisateur exigeant - Un 
ecran clair, avec rappel possible d'un 
schema complet pour controle - D'in- 
teressantes solutions d'impression - 
Une approche aisee et un apprentis- 
sage rapide - De tres utiles notions 
de zones, d' objets et de symboles. 
Et, a un moindre titre : Un bon tuto- 
rial - Une agreable facilite de configu- 
ration du systeme d'impression. 

Pour les possesseurs 
d' Apple He 

Attention a la touche "CAPS 
LOCK", qui doit toujours etre enfon- 
cee (sauf en mode texte) : dans le 
cas contraire, le logiciel "ne 
comprend rien", refuse toute entree 
sur la ligne reservee et ne previent 
pas (mais ne va pas jusqu'a se blo- 
quer). 
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Le Calculateur Entier 

Jacques Duma 



Cryptographies et arithmeticiens, a 
vos claviers ! 

Ce Calculateur Entier permet de faire 
des operations avec de tres grands 
nombres. 11 accepte jusqu'a 500 chif- 
fres par nombre pour les calculs. Le 
"prompt" qui indique que le pro- 
gramme attend vos ordres est le 
signe pour-cent "%". 

Les regies de syntaxe de ce Calcula- 
teur Entier sont formalisees en nota- 
tion BNF. Les unites syntaxiques de- 
finies sont entre chevrons ("<" et 
">"). Les termes de leur definition 
suivent les trois symboles ":: = ". Le 
signe "!" separe les differentes 
formes que peut prendre une unite 
syntaxique. Les parties optionnelles 
sont notees entre accolades ("{" et 
"}"). "RETURN" signifie: taper la 
touche RETURN. Tous les autres 
symboles qui ne sont pas entre che- 
vrons forment 1' alphabet du langage 
du Calculateur. 

Mise en route 

Le code source Lisa est fourni (CAL- 
CULATEUR. L), ainsi que le code 
objet en binaire (CALCULA- 
TEUR. B). La version standard est as- 
semble a l'adresse 2112 (decimal) 
ou $840 (hexa). Pour lancer le pro- 
gramme, il suffit de faire : 

BRUN CALCULATEUR. B 

L'ecran est efface et on peut lire, en 
haut et a gauche : 

FAIRE: CALL 2112 

Si I on execute cette instruction, on 
se retrouve sous le controle du Cal- 
culateur Entier. Le prompt est le 
signe pour-cent "%". 

Si, par accident, on quitte le pro- 
gramme (par exemple en faisant 
RESET ou une erreur DOS), on peut 
y retourner sans perdre les variables 
en cours d' utilisation. Pour cela, il' 
faut faire : 

& (en Applesoft) ou CTRL-Y (en 
mode moniteur). 

Si, a la suite d'une sortie, on desire 
reinitialiser le programme, il faut 
faire : 

CALL 2112 (en Applesoft) ou 840G 
(en mode moniteur). 

Si la position du programme en me- 
moire ne vous convient pas, vous 
pouvez l'assembler a une autre 
adresse (a condition quelle soit 
comprise entre $805 et $66D0). 
Tout ce qui precede reste valable. 



seule l'adresse d'appel change. Au 
debut, vous verrez apparaitre sur 
votre ecran : 

FAIRE : CALL aaaa 

ou aaaa sera l'adresse decimale cor- 
respondent a l'adresse hexa d'origine 
de votre programme. Si par exemple 
vous mettez "ORG $805" en ligne 2 
du texte source, le programme affi- 
chera : 

FAIRE : CALL 2053 

Etudions a present les possibilites de 
ce programme. 

Commandes 

Le Calculateur Entier est un interpre- 
teur de lignes. Chaque ligne de 
commande contient au plus 250 ca- 
racteres et doit se terminer par "RE- 
TURN". 

<Ligne> :: = 

<Commande> "RETURN" || 

<Commande DOS > "RETURN" 
<Commande> :: = 

{ <Diese>}<Instruction>|| 

<Commande> : 

{ <Diese>}<Instruction> 
<Diese> ::= <Constante># 

II peut y avoir plusieurs instructions 
par ligne, separees par deux-points 
Les blancs ne sont pas pris en 
compte. 

Le <Diese> optionnel devant une 
<Instruction> represents un facteur 
repetiteur. La constante qui le pre- 
cede, et qui doit etre un entier positif 
inferieur a 256, indique combien de 
fois la ligne doit etre executee (voir la 
section sur les facteurs repetiteurs). 

Une <Commande DOS> est une 
commande du DOS standard. En 
fait, on utilisera seulement les 
commandes CATALOG. BSAVE 
(pour sauvegarder les resultats d un 
travail), BLOAD (pour recuperer un 
travail en cours), PR#0 et PR#1 
(pour dinger l'affichage vers l'ecran 
ou l'imprimante). Une commande du 
DOS doit bien sur etre seule sur sa 
ligne. 

Exemples de lignes : 

%BLOAD nomfichier "RETURN" 
%?2*3: A =2/3:R: $: Ca "RE- 
TURN" 

Le signe pour-cent "%" est le 
prompt et la touche RETURN est 
tapee en fin de ligne. Nous verrons 
plus loin la signification du "$" et de 
1 arrobas "(a ". 



Instructions 

II y a trois types d' instructions, pour 
1' initialisation du systeme, les affecta- 
tions, et les affichages. 

<Instructjon> ::= & || . || y || <Affec 

tation> || <Affichage> || <Rien> 
<Rien> :: = 

La virgule (,) est une pause entre 
deux instructions. A l'execution. trois 
bips sont emis et il faut appuyer sur 
une touche pour continuer. Si 
CTRL-C est appuye a ce moment-la, 
il y a une interruption normale. 

Le guillemet (") permet d'introduire 

des remarques dans le deroulement 

d un calcul. Tout ce qui suit le (") 

jusqu'au (:) suivant ou jusqu'a la fin 

de la ligne est simplement recopie a 

l'ecran (les espaces sont supprimes). 

Par exemple : 

%"ZERO : A=0 : ?A : 

A=A+1 : "UN : ?A : "FINI 

affichera : 

ZERO 

= 00 

UN 

= 01 

FINI 

<Rien> signifie q'une instruction 
peut etre vide (dans une ligne. on 
peut avoir sans rien entre les 
deux-points separateurs). 

Initialisation 

& est l'instruction qui permet de de- 
saffecter toutes les variables en cours 
d' utilisation. Cette instruction, avant 
de reinitialiser tout le systeme. de- 
mande confirmation par : 

RAZ (O/N) ? 

Si la reponse est O pour OUI, le sys- 
teme est reinitialise; dans le cas 
contraire, on retourne au niveau de 
commande sans rien perdre. 

Attention : le chargement d'un fichier 
de variables a partir d'une disquette 
fait perdre tout le contenu actuel de 
la memoire. 

Instructions d'affectation 

Ce programme n'est qu'un calcula- 
teur et non un analyseur d' expres- 
sions arithmetjques. On ne peut done 
faire qu'une operation par instruc- 
tion, mais on peut avoir plusieurs ins- 
tructions par ligne. 

Remarque : si les nombres sont tres 
grands, les calculs peuvent durer un 
temps appreciable: il ne faut surtout 
pas s'impatienter. 
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Les additions et soustractions sont ra- 
pides. 

Une multiplication de deux nombres 
de 250 chiffres peut durer jusqu'a 15 
secondes. 

L'elevation a une puissance peut at- 
teindre 25 secondes (2 1685 par 
exemple). 

La division est la plus longue : la di- 
vision d"un nombre de 500 chiffres 
par un nombre de 1 chiffre peut 
prendre 60 secondes. 

<Affectation> :: = <Variable> = 
<Expression>{;<VariabIe> } 

<Expression> :: = 

{-}<Primaire> ||{-}<Primaire> 
<Operateur><Primaire> 

<Primaire> :: = 

<Variable> ||<Constante> 

<Operateur> :: = 

+ ii-ii*ii/irii' 

Les operations permises sont done 
1' addition, la soustraction, la multipli- 
cation, la division entiere (avec "/"), 
qui peut fournir son reste (a condi- 
tion que les deux operandes soient 
positifs). la puissance _entiere a expo- 
sant positif (avec " ") et enfin la 
multiplication par une puissance de 
10 (avec l'apostrophe). 

Voici quelques exemples : 

A=-3+123: B=A"5: C=A/B : 
D=-A*C: C=12-A: A=A A;A : 
C=33/5;B 

Pour la division entiere. on a avec le 
reste la possibility d'une affectation 
double. Exemple : 

Q=13/5 : la valeur 2 est affectee a 
la variable Q. 

Q=13/5;R : la valeur 2 est affectee 
a Q et le reste 3 a R. 

R=13/5;R : la valeur 2 est affectee a 
R. puis 3 est aussi affecte a R. Le 2 
est done perdu, mais on a ainsi ob- 
tenu le reste de la division en utili- 
sant une seule variable ... 

L' option {;<Variable> } n'est accep- 
tee par le Calculateur, a la suite 
d'une affectation, que dans le cas de 
la division. Dans les autres cas, une 
erreur est detectee. 

L' apostrophe (') permet de faire tres 
rapidement les multiplications et divi- 
sions par les puissances de 10 [des 
decalages). X'N est egal a X*(10 N). 
X et N peuvent etre positifs ou nega- 
tifs. Par exemple. si N=5 et M=— 5, 
alors : 

? 123456789'N donne =12 3456 
7890 0000 

? 123456789'M donne =01 2345 
Si I'exposant de 10 est negatif. cette 
operation ne rend pas de reste, 
contrairement a la division. 

Limites - Les regies suivantes 
doivent etre respectees : 

• les deux operandes d'une division 



doivent etre positifs; 

• il n'est pas possible de diviser par 
zero; 

• I'exposant d'une puissance doit 
etre positif; 

• tout resultat apres calcul doit avoir 
moins de 509 chiffres. 

• I'exposant de 10 dans (') ne doit 
pas depasser 511 en valeur abso- 
lue. 

Si Ton desire affecter a une variable 
un nombre de plus de 250 chiffres. il 
faut proceder par etapes car la ligne 
est limitee a 250 caracteres. Ainsi. un 
nombre de 400 chiffres sera affecte a 
la variable X en deux lignes : 

% X=(la suite des 200 premiers chif- 
fres)'200 "RETURN" 
% X=X+(la suite des 200 derniers 
chiffres) "RETURN" 

Variables 

On dispose de 26 variables distinctes. 
Chaque variable a pour identificateur 
une des lettres de l'alphabet (A...Z) 
et pour valeur un nombre entier rela- 
tif, e'est-a-dire un entier positif, nul 
ou negatif. 

<Variable> :; = 

A!B!C!D!E!F!G!H!I!J!K!L!M!N!0!P!Q 
!R!S!T!U!V!W!X!Y!Z 

A l'initialisation du systeme. les varia- 
bles ne sont pas affectees (elles n'ont 
pas de valeurs). 

L' utilisation d'une <Variable> non 
initialisee dans une <Expression> 
provoque le message d'erreur : 

? VARIABLE V NON AFFECTEE 

Pour utiliser une <Variable>. il faut 
done I'initialiser en lui affectant pour 
valeur une <Constante> ou une 
< Expression >. 

Constantes 

Une constante est un nombre entier 
positif. 

<Constante> ;:= <Chiffre> || 

<Constante><Chiffre> 
<Chiffre> ::= 0!1!2!3!4!5!6!7!8!9 

II y a cependant une limitation a la 
taille des constantes. On ne peut pas 
entrer plus de 250 caracteres au cla- 
vier; de plus, apres calcul, le nombre 
le plus grand ne peut avoir plus de 
508 chiffres. 

Les blancs etant non significatifs dans 
une ligne, on peut entrer des espaces 
entre les groupes de chiffres d'une 
constante, ce qui facilite l'ecriture des 
tres grands nombres. 

Si une <Constante> est utilisee de 
maniere repetitive dans un calcul, il 
vaut mieux l affecter a une <Varia- 
ble> et utiliser la <Variable>. Les 
calculs seront plus rapides. Le co- 
dage d'une constante est en effet 
assez long. 



Instructions d'affichage 

Ces instructions permettent de visua- 
liser les resultats sur l'ecran (ou sur 
rimprimante, si Ton a fait prealable- 
ment PR#i avec rimprimante sur le 
Slot i). 

<Affichage> :: = 

$ || (q I ?<Expression> 

?<Expression> affiche la valeur de 
1' expression. Le Calculateur passe a 
la ligne et ecrit "=" suivi de la va- 
leur. Si l'expression est une division, 
deux resultats sont donnes : le quo- 
tient puis le reste. 

Les nombres sont ecrits avec un es- 
pace tous les quatre chiffres pour fa- 
ciliter la lecture. Un caractere CR 
(Carriage Return) est envoye tous les 
79 caracteres pour que les sorties sur 
imprimante soient formatees correc- 
tement. 

On peut afficher les valeurs de toutes 
les variables en service a un instant 
donne par @. Ceci ecrit ; 

AFF1CHAGE DES VARIABLES AF- 
FECTEES : variables et valeurs. par 
ordre alphabetique 

L'affichage ecran est rapide. On peut 
l'interrompre entre chaque variable 
en tapant sur la barre d'espacement: 
on le relance de la meme facon. 
CTRL-C permet darreter l'affichage 
et de recuperer le prompt. 

On peut aussi afficher en hexadeci- 
mal l'adresse et la longueur de la 
zone memoire a sauvegarder pour 
conserver les valeurs calculees et af- 
fectees aux variables en service. 

"$" donne l'adresse et la longueur 
de la zone memoire a sauvegarder 
par un BSAVE. Le format est le sui- 
vant: ZONE A SAUVEGARDER 
A$xxxx, L$yyyy 

ou xxxx est l'adresse du debut de la 
zone a sauvegarder et yyyy sa lon- 
geur. le tout en hexadecimal. 

Par exemple. pour sauvegarder les 
variables calcuiees sur la disquette 
sous le nom de fichier "MES-CAL- 
CULS", il faut faire : 
%BSAVE MES-CALCULS.A$xxxx. 
L$yyyy "RETURN" 

La valeur de A$xxxx depend de 
l'adresse a laquelle le programme a 
ete assemble (on a normaiement 
A$1700). La valeur de L$yyyy est 
LS0070 a l'initialisation du systeme. 
Chaque variable affectee occupe 256 
octets supplementaires ($100). On 
aura ainsi "L$0370" si 3 variables 
ont ete affectees. 

Pour recuperer ulterieurement les va- 
leurs sur lesquelles on travaille. il suf- 
fira de faire : 

%BLOAD MES-CALCULS "RE- 
TURN" 
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Attention : le contenu de la memoire 
avant le BLOAD est perdu. 

Les facteurs repetiteurs 

Une ligne normale est executee une 
seule fois. Si le <Diese> est utilise, 
on peut executer une <Ligne> ou 
une fin de ligne plusieurs fois. 

La constante qui precede le diese 
(#) doit etre un entier positif inferieur 
ou egal a 255. Ce nombre indique 
combien de fois il faut executer tout 
ce qui suit le diese jusqu'a la fin de 
la ligne (jusqu'au "RETURN"). 

II peut y avoir plusieurs fois le <Die- 
se> sur une mSme ligne. Chaque 
facteur repetiteur porte sur ce qui le 
suit jusqu'a la fin de la ligne. Le Cal- 
culates n'est pas programmable, 
mais le <Diese> permet de faire 
assez facilement des calculs repetitifs 
(comptages. factorielles). 

S'il y a trop de facteurs repetiteurs 
sur une mSme ligne, il est possible 
que le programme soit mis en defaut 
par saturation de la pile. II vaut done 
mieux eviter d'utiliser plus de 15 fois 
le diese dans la meme ligne (la 
contrainte est raisonnable ...). 

La syntaxe impose que chaque diese 
soit separe du suivant par au moins 
une instruction (eventuellement 
vide). II y a done au moins un deux- 
points entre chaque paire de dieses. 
Si Ton veut afficher 500 fois la valeur 
3, il faut taper la ligne suivante : 

% 10# : 50 # ?3 "RETURN" 

Voici quelques exemples : 

Le signe pour-cent "%" au debut de 
la ligne est le prompt. La suite est 
tapee par l'utilisateur jusqu'au "RE- 
TURN". Les blancs sont non signifi- 
catifs (on peut ne pas en mettre). Le 
reste est affiche par le Calculates : 

% ? 2+3 "RETURN" 
=05 

% 3# ?2+3 "RETURN" 

=05 

=05 

=05 

% A=0: 100# A=A+1 

%?A 

=0100 

% A=0: F=l : 10# @: 10#A=A 
+1 : F=A*F 

AFFICHAGE DES VARIABLES 

AFFECTEES : 

A=00 

F=01 

AFFICHAGE DES VARIABLES 

AFFECTEES : 

A=10 

F=0362 880 

AFFICHAGE DES VARIABLES 

AFFECTEES : 

A=20 

F=0243 2902 0081 7664 0000 
AFFICHAGE DES VARIABLES 



AFFECTEES : 
A=30 

F=0265 2528 5981 2191 0586 3630 
8480 0000 00.... 

Cet exemple calcule dans F la facto- 
rielle de A. D y a deux boucles imbri- 
quees. La premiere affiche les variables 
affectees ("@" est execute 10 fois), et 
execute la seconde boucle. La seconde 
incremente A et multiplie A par F. Les 
resultats ne sont done affiches qu'une 
fois sur dix. Le dernier affichage est 
A=90 et F la valeur de factorielle 90 
(90!). On termine alors les deux bou- 
cles par le calcul de factorielle 100 
(100!), mais la valeur n'est pas affi- 
chee. Si Ton fait "@", on affichera 
A=100 et F=100! A titre d'informa- 
tion, le depassement de capacite est 
obtenu pour la factorielle de 256 
(256!). 

Un autre exemple utile : 

% N= 1225313 : K=3 : 10# : 60# 
Q=N/K;R: X=l/R: K=K+2 "RE- 
TURN" 

? DIVISION PAR ZERO 
% @ "RETURN" 

AFFICHAGE DES VARIABLES AF- 
FECTEES : 
K=0997 
N=0122 5313 
Q=1229 
R=00 
X=00 

%N=1229: K=3: 20# Q=N/K;R: 
X=l/R: K=K+2 "RETURN" 
% (d "RETURN" 

AFFICHAGE DES VARIABLES AF- 
FECTEES : 
K=43 
N=1229 
Q=28 
R=40 
X=00 

La premiere ligne permet de chercher 
si le nombre N = 1225313 est premier. 
Pour cela, on le divise par tous les 
nombres impairs a partir de K=3 et 
ceci 600 fois (on arrive ainsi a la racine 
de N). II faut done ajouter 2 a K 600 
fois (10# :60 #). 

Le quotient est Q. le reste est R. Si N 
n'est pas premier, le reste R prendra la 
valeur zero a un certain moment. L' ins- 
truction (X=l/R) permet d'interrompre 
le calcul a cet instant (car il y a divison 
par zero). 

Dans notre exemple, ceci se produit 
apres 4 minutes de calcul. On affiche 
alors les variables, ce qui permet de 
voir que N=K*Q. e'est-a-dire que 
1225313 = 997 * 1229 et n'est done 
pas premier. 

On essaye de meme de decomposer 
1229 en facteurs premiers. Mais, cette 
fois, on reprend la main sans erreur. 
Le nombre 1229 est done premier. 

Pour des grands nombres, le temps de 
calcul reste helas prohibitif. 



Interruptions 

On sait deja qu'il est possible de pro- 
grammer des arrets (,), d'interrompre 
ou de reprendre 1' affichage avec la 
barre d'espacernent. On peut aussi 
arreter les calculs par CTRL-C. Cette 
interruption est non destructive, car 
elle n'est pas prise en compte n'im- 
porte quand. Si Ton fait CTRL-C du- 
rant l'affichage, le message d'inter- 
ruption apparatt a 1' Scran et on 
retourne au niveau de commande. 
La valeur des variables (a cet instant) 
n'est pas modifiee. 

Si Ton fait CTRL-C au cours d'un 
calcul, on peut attendre 1' interruption 
entre deux et une dizaine de secon- 
des. En effet, le CTRL-C n'est pris 
en compte que dans les divisions et 
les puissances, mais pas dans les 
multiplications. Dans le cas d'une af- 
fectation, si le calcul est interrompu, 
1' affectation n'a pas lieu et la valeur 
de la variable demeure inchangee. 

Si le CTRL-C intervient au cours 
d'un calcul avec facteur repetiteur, il 
est difficile de savoir si 1' interruption 
a lieu au cours d'un calcul (s'il y a 
"/" ou " " dans le calcul), ou si ['in- 
terruption a lieu entre deux repeti- 
tions. II faut alors regarder la valeur 
des compteurs que Ton a utilises 
dans la boucle pour evaluer la posi- 
tion du point d'interruption. 

Remarque : il n'est pas possible 
de reprendre un calcul interrompu. 
Soyez done patients, car les temps 
de calcul sont parfois importants. 

II peut aussi se produire des interrup- 
tions accidentelles. Si Ton tape la 
touche RESET, on se retrouve soit 
sous controle de l'Applesoft (ROM 
Autostart), soit sous le controle du 
moniteur (ancienne ROM). 

Pour retourner dans le Calculates 
sans perdre le travail en cours, il faut 
faire "&" (a partir de l'Applesoft) ou 
CTRL-Y (a partir du moniteur). Si 
une erreur est faite dans une 
commande du DOS, on quitte aussi 
le Calculates pour se retrouver sous 
controle du Basic. La procedure de 
retour est la meme. 

Attention : si on fait RESET pen- 
dant l'affectation d'une variable, 
celle-ci sera incorrectement affectee; 
des erreurs pourront alors se pro- 
duire avec cette variable. Mefiez-vous 
par consequent du RESET. 

Pour utiliser l'Applesoft et le Calcula- 
tes ensemble, il faut : 

- assembler le programme a l'adresse 
$66D0 (ORG $66D0 et OBJ &800) 

- apres sauvegarde correcte du code 
binaire. faire BRUN; 

FAIRE CALL 26320 apparait a 
l'ecran. II faut alors faire : 
HIMEM:26320 : CALL 26320 
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Le Calculateur est alors protege 
contre le Basic. 

Entrees-Sorties 

Si une imprimante est branchee sur 
le slot i. faire PR#i pour sortir les re- 
sultats sur papier. La presentation a 
l'imprimante n'est pas identique a 
celle de l'ecran. 

Certains CR ne sont transmis qu'a 
l'ecran pour plus de lisibilite, mais les 
lignes ne sont pas sautees sur l'impri- 
mante. De plus, les tres grands nom- 
bres sont presentes par lignes de 80 
caracteres sur 1' imprimante. 

Si les sorties se font sur papier, on 
ne voit rien a l'ecran. Mais si votre 
interface d'imprimante permet de 
conserver 1' image ecran grace a un 
caractere de controle, vous pouvez 
entrer ce caractere (sans tenir compte 
de l'erreur de syntaxe qu'il provo- 
quera). Tout doit fonctionner norma- 
lement. 

Exemples 

Voici le resultat d'une sequence de 
travail normale. Ce qui suit le signe 
pour-cent "%" est tape au clavier par 
l'utilisateur. suivi de "RETURN"; le 
reste est affiche par le Calculateur 
Entier. 



CALCULATEUR ENTIER 
VERSION 1.2 
PAR J. DUMA 
<06.01.1984> 



%?12345+123 
=0124 68 

%$ 

ZONE A SAUVEGARDER A$182C. 
L$0070 

%A=- 123456789: $ : @: B = 
A + A : @ 

ZONE A SAUVEGARDER A$1700. 
L$0170 

AFFICHAGE DES VARIABLES 

AFFECTEES : 

A= -0123 4567 89 



AFFICHAGE DES VARIABLES 
AFFECTEES : 

A= -0123 4567 89 

B= -0246 9135 78 

%?63/5 :?- 12.12 : ?2 " 100 :?C 

= 12 

= 03 

= -0144 

=0126 7650 6002 2822 9401 4967 
0320 5376 

? VARIABLE 'C NON AFFECTEE 

%A= A+ -D 

? PRIMAIRE INCORRECT 

%A=3/0 

? DIVISION PAR ZERO 

%A=5/3:A : ?A : ?-3/A 
=02 

? OPERANDS NEGATIF 

%A=0: 20#: 20# A=A+1 
%?A 

= 0400 

%... etc... etc... 

Resume des regies syn- 
taxiques 

<Ligne> :: = 

<Commande>"RETURN" || 
<Commande DOS > "RETURN" 

<Commande> :: = 

{ <Diese>}<Instruction> || 
<Commande> : { <Diese> } 
<Instruction> 

<Diese> :: = 
<Constante># 

<Instruction> :: = 

& || , ||" || <Affectation> || 
<Affichage> || <Rien> 

<Affichage > :: = 

$ || @ II ?<Expression> 
< Affectation > :: = 

<Variable> = <Expression> 

{;<Variable> } 

<Expression> :: = 

{-}<Primaire> ||{-}<Primaire> 

<Operateur><Primaire> 
<Primaire> :: = 

<Variable> ||<Constante> 

<Variable> ;: = <Lettre> 

<Constante> :: = <Chiffre>|| 
<Constante><Chiffre> 



<Operateur> :: = 

+ 11-11*11/11 "II' 
<Lettre> :: = 

A!B!C!D!E!F!G!H!I!J!K!L!M!N!0! 

P!Q!R!S!T!U!V!W!X!Y!Z 

<Chiffre> ::= 0!1!2!3!4!5!6!7!8!9 
<Rien> :: = 

Les messages d'erreur 

? ERREUR DE SYNTAXE 

? INTERRUPTION DE L'UTILISA- 
TEUR 

L'utilisateur a fait CTRL-C. 

? FACTEUR REPETITEUR INCOR- 
RECT 

Facteur > 255, ou il manque #. 

? DIVISION PAR ZERO 

? OPERANDE NEGATIF 

Les operandes d'une division doivent 

etre positifs. 

? RESULTAT TROP GRAND 

Le resultat du calcul a plus de 508 

chiffres. 

? EXPOSANT NEGATIF 

Pour une puissance, l'exposant doit 

etre positif. 

? AFFECTATION INCORRECTE 
II peut manquer le signe ( = ). 

? PRIMAIRE INCORRECT 
? VARIABLE V NON AFFECTEE 
La variable dont le nom est (x) n'est 
pas en service. 

? EXPRESSION INCORRECTE 
? MAUVAIS OPERATEUR 

NDLR: le Calculateur est tres utile 
pour lire le livre passionnant de Fran- 
gois Le Lionnais "Les nombres re- 
marquables". chez Herman. Encore 
une fois. Pom's vous offre un pro- 
gramme qui, a lui seul, se vendrait 
plus cher que l'abonnement d'un an 
avec disquettes. Nous n'avons pas 
publie le programme source, car il y 
en aurait pour 15 pages en deux co- 
lonnes ... Le source, ainsi que la re- 
capitulation, se trouve comme d'ha- 
bitude sur la disquette d'accom- 
pagnement du numero. Les droits de 
l'auteur seront bien entendu etablis 
sur la base de la longueur totale de 
Particle, incluant ces 15 pages non 
publiees. 



Calculateur Entier 
Code objet 

•840. 1840 

0840- A9 4C 8D F5 03 8D F8 03 

0848- A9 5E 8D F6 03 8D F9 03 

0850- A9 09 8D F7 03 8D FA 03 

0858- 20 58 FC 20 8C 17 C6 CI 

0860- C9 D2 C5 BA AO C3 CI CC 

0868- CC AO 87 00 A2 40 A9 08 

0870- 20 24 ED 20 8E FD 20 8E 



0878- FD A9 4C 8D 40 08 A9 8B 
0880- 8D 41 08 A9 08 8D 42 08 
0888- 4C D3 03 20 58 FC 20 9B 
0890- 17 AO AD AD AD AD AD AD 
0898- AD AD AD AD AD AD AD AD 
08A0- AD AD AD AD 8D AO C3 CI 
08A8- CC C3 D5 CC CI D4 C5 D5 
08B0- D2 AO C5 CE D4 C9 C5 D2 
08B8- 8D AO AD AD AD AD AD AD 
08C0- AD AD AD AD AD AD AD AD 
08C8- AD AD AD AD 8D AO AO AO 
08D0- AO AO AO AO D6 C5 D2 D3 
08D8- C9 CF CE AO AO Bl AE B2 



08E0- 


8D 


AO 


AO 


AO 


AO 


AO 


AO 


AO 


08E8- 


AD 


AD 


AD 


AD 


AD 


AD 


AD 


AD 


08F0- 


AD 


AD 


AD 


AD 


8D 


AO 


AO 


AO 


08F8- 


AO 


AO 


AO 


AO 


DO 


CI 


D2 


AO 


0900- 


AO 


CA 


AE 


AO 


C4 


D5 


CD 


CI 


0908- 


8D 


AO 


AO 


AO 


AO 


AO 


AO 


AO 


0910- 


AD 


AD 


AD 


AD 


AD 


AD 


AD 


AD 


0918- 


AD 


AD 


AD 


AD 


8D 


AO 


AO 


AO 


0920- 


AO 


AO 


AO 


AO 


BC 


BO 


B6 


AE 


0928- 


BO 


Bl 


AE 


Bl 


B9 


B8 


B4 


BE 


0930- 


8D 


AO 


AO 


AO 


AO 


AO 


AO 


AO 


0938- 


AD 


AD 


AD 


AD 


AD 


AD 


AD 


AD 


0940- 


AD 


AD 


AD 


AD 


8D 


8D 


00 


A2 
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0948- 7F A9 00 9D 1C 18 CA 10 
0950- FA A9 00 8D 99 18 A9 70 
0958- 8D 98 18 4C C9 09 20 58 
0960- FC 20 9B 17 AO AD AD AD 
0968- AD AD AD AD AD AD AD AD 
0970- AD AD AD AD AD AD AD 8D 
0978- AO C3 CI CC C3 D5 CC CI 
0980- D4 C5 D5 D2 AO C5 CE D4 
0988- C9 C5 D2 8D AO AD AD AD 
0990- AD AD AD AD AD AD AD AD 
0998- AD AD AD AD AD AD AD 8D 
09AO- AO D2 C5 DO D2 C9 D3 C5 
09A8- AO D3 D5 D2 AO D3 CF D2 
09B0- D4 C9 C5 8D AO AD AD AD 
09B8- AD AD AD AD AD AD AD AD 
09C0- AD AD AD AD AD AD AD 8D 
09C8- 00 D8 20 3A FF A2 F8 9A 
09D0- A9 00 48 48 48 4C DF 09 
09D8- 20 Dl 15 C9 BA FO 3B 68 
09EO- FO 16 AA CA 68 8D D3 15 
09E8- A8 68 8D D2 15 48 98 48 
09F0- 8A 48 20 B7 15 4C 1A OA 
09F8- 68 DO IB 68 DO 19 48 48 
OAOO- 48 A9 FF 48 A9 01 48 48 
0A08- A9 A5 85 33 20 6A FD EO 
0A10- 00 FO F5 4C DF 09 68 4C 
0A18- DF 09 20 C9 15 FO B9 20 
0A20- DF 15 90 79 29 OF SD 10 
0A28- 18 20 C9 15 20 DF 15 90 
0A3O- 53 OE 10 18 AD 10 18 OA 
0A38- OA 6D 10 18 8D 10 18 20 
0A4O- Dl 15 29 OF 18 6D 10 18 
0A48- 8D 10 18 20 C9 15 20 DF 
0A50- 15 90 31 OE 10 18 AD 10 
0A58- 18 OA 90 03 4C 45 16 OA 
0A60- 90 03 4C 45 16 6D 10 18 
0A68- 90 03 4C 45 16 8D 10 18 
OA70- 20 Dl 15 29 OF 18 6D 10 
0A78- 18 90 03 4C 45 16 8D 10 
0A80- 18 20 C9 15 C9 A3 FO 03 
0A88- 4C 45 16 AD D2 15 48 AD 
0A90- D3 15 48 CE 10 18 AD 10 
0A98- 18 48 20 C9 15 20 Dl 15 
OAAO- DO 03 4C D8 09 A2 05 DD 
0AA8- FE 17 FO 06 CA 10 F8 4C 
OABO- 7F OC 8A OA AA BD 04 18 
0AB8- 8D C2 OA BD 05 18 8D C3 
OACO- OA 4C FF FF 20 C9 15 FO 
0AC8- 06 20 ED FD 4C C4 OA 20 
OADO- 8E FD 20 F9 17 4C D8 09 
0AD8- 20 C9 15 FO 03 4C FF 15 
OAEO- 20 3A FF 20 8C 17 52 41 
0AE8- 5A 60 60 68 4F 6F 4E 69 
OAFO- 60 7F AO 00 20 OC FD C9 
0AF8- CF DO 03 4C 8B 08 20 8C 
OBOO- 17 88 88 88 88 88 88 88 
0BO8- 88 88 88 88 88 88 AO AO 
0B10- AO AO AO AO AO AO AO AO 
0B18- AO AO AO 8D 00 4C D8 09 
0B20- 20 C9 15 FO 03 4C FF 15 
0B28- 20 3A FF 20 3A FF 20 3A 
0B3O- FF 8D 10 CO AD 00 CO 10 
0B38- FB 20 B7 15 8D 10 CO 4C 
0B4O- D8 09 20 C9 15 FO 03 4C 
0B48- FF 15 20 8C 17 DA CF CE 
0B50- C5 AO CI AO D3 CI D5 D6 
0B58- C5 C7 CI D2 C4 C5 D2 BA 
0B60- AO Ci A4 00 A9 18 20 DA 
0B68- FD A9 2C 20 DA FD 20 8C 
0B70- 17 AC CC A4 00 AD 99 18 
0B78- 20 DA FD AD 98 18 20 DA 
0B80- FD 20 8E FD 20 F9 17 4C 
0B88- D8 09 20 C9 15 FO 03 4C 
0B90- FF 15 20 8C 17 CI C6 C6 
0B98- C9 C3 C8 CI C7 C5 AO C4 
OBAO- C5 D3 AO D6 CI D2 C9 CI 
0BA8- C2 CC C5 D3 AO CI C6 C6 
OBBO- C5 C3 D4 C5 C5 D3 BA 8D 
0BB8- 8D 00 A9 CI 8D CO OB A9 
OBCO- FF 20 D7 OB 20 9A 15 EE 



0BC8- CO OB A9 DB CD CO OB DO 
OBDO- EE 20 F9 17 4C D8 09 48 
0BD8- 29 IF OA OA AA BD 2D 18 
OBEO- DO 02 68 60 A9 AO 20 ED 
0BE8- FD 68 C9 CO DO 02 A9 AO 
OBFO- 20 ED FD A9 BD 20 ED FD 
0BF8- A9 AO 20 ED FD BD 2C 18 
OCOO- 10 04 A9 AD DO 02 A9 AO 
0C08- 20 ED FD BD 2E 18 8D 24 
0C10- OC 8D 2F OC BD 2F 18 8D 
0C18- 25 OC 8D 30 OC BD 2D 18 
0C20- AA AO OF BD FF FF 20 DA 
0C28- FD EO FF FO 20 E8 BD FF 
0C30- FF 20 DA FD EO FF FO 15 
0C38- 88 FO' 09 A9 AO 20 ED FD 
0C40- E8 4C 23 OC 20 8E FD E8 
0C48- AO 10 4C 23 OC 20 8E FD 
0C5O- 20 F9 17 60 20 IF OD 20 
0C58- Dl 15 FO 03 4C FF 15 20 
0C60- F9 17 A9 CO 20 D7 OB 20 
0C68- 9A 15 AD 14 18 C9 04 DO 
0C70- OB 20 22 14 A9 CO 20 D7 
0C78- OB 20 9A 15 4C D8 09 20 
0C80- EF 15 BO 03 4C FF 15 8D 
0C88- 11 18 A9 00 8D 12 18 20 
0C9O- C9 15 C9 BD FO 03 4C El 
0C98- 16 20 IF OD AE 14 18 EO 
OCAO- 04 DO 18 20 Dl 15 C9 BB 
0CA8- DO 11 20 C9 15 20 EF 15 
OCBO- BO 03 4C El 16 8D 12 18 
0CB8- 20 C9 15 20 Dl 15 FO 03 
OCCO- 4C El 16 AD 11 18 29 IF 
0CC8- OA OA AA BD 2D 18 FO 09 
OCDO- 20 5F 15 20 22 14 4C OC 
0CD8- OD EE 99 18 AD 2C 18 9D 
OCEO- 2C 18 AD 2D 18 9D 2D 18 
0CE8- AD 2E 18 9D 2E 18 AD 2F 
OCFO- 18 9D 2F 18 AD 1C 18 8D 
0CF8- 2C 18 AD ID 18 8D 2D 18 
ODOO- AD IE 18 8D 2E 18 AD IF 
0D08- 18 8D 2F 18 AD 12 18 DO 
0D10- 03 4C D8 09 3D 11 18 A9 
0D18- 00 8D 12 18 4C C3 OC 20 
0D20- C9 15 DO 03 4C 4E 17 18 
0D28- A9 2C 6D 98 18 8D 2E 18 
0D30- 8D IE 18 8D 22 18 8D 26 
0D38- 18 8D 2A 18 A9 18 6D 99 
0D40- 18 8D 2F 18 8D IF 18 8D 
0D48- 23 18 8D 27 18 8D 2B 18 
0D50- A9 00 8D 14 18 EE IF 18 
0D58- EE 23 18 EE 23 18 EE 27 
0D60- 18 EE 27 18 EE 27 18 EE 
0D68- 2B 18 EE 2B 18 EE 2B 18 
OD70- EE 2B 18 20 B5 13 20 D4 
0D78- 13 20 FB 13 20 E5 14 20 
0D80- Dl 15 C9 AD DO 14 20 C9 
0D88- 15 20 EC OD AD 2C 18 49 
0D9O- FF 8D 2C 18 20 Dl 15 DO 
0D98- OA 60 20 EC OD 20 Dl 15 
ODAO- DO 01 60 C9 AB DO 04 A9 
0DA8- 01 DO 2B C9 AD DO 04 A9 
ODBO- 02 DO 23 C9 AA DO 04 A9 
0DB8- 03 DO IB C9 AF DO 04 A9 
ODCO- 04 DO 13 C9 DE DO 04 A9 
0DC8- 05 DO OB C9 A7 DO 04 A9 
ODDO- 06 DO 03 4C 6F 17 8D 14 
0DD8- 18 20 D4 13 20 B5 13 20 
ODEO- C9 15 20 EC OD 20 FB 13 
0DE8- 20 82 OE 60 20 Dl 15 20 
ODFO- DF 15 BO IE 20 EF 15 BO 
0DF8- 03 4C 03 17 48 29 IF OA 
OEOO- OA AA BD 2D 18 DO 04 68 
0E08- 4C 21 17 68 20 33 15 4C 
0E1O- C9 15 A9 00 8D 13 18 AD 
0E18- 2E 18 8D 2E OE 8D 45 OE 
0E20- AD 2F 18 8D 2F OE 8D 46 
0E28- OE A2 FF A9 00 9D FF FF 
0E30- 4C 36 OE 20 C9 15 20 DF 
0E38- 15 90 18 OA OA OA OA AO 
0E40- 04 A2 FF OA 3E FF FF CA 



0E48- DO FA 88 DO F4 EE 13 18 
0E50- 4C 33 OE EE 13 18 4E 13 
0E58- 18 A9 00 38 ED 13 18 8D 
0E60- 2D 18 AD 2E 18 8D 72 OE 
0E68- AD 2F 18 8D 73 OE AE 2D 
0E70- 18 BD FF FF C9 00 DO 09 
0E78- EE 2D 18 E8 DO F3 CE 2D 
0E80- 18 60 AE 14 18 CA DO 03 
0E88- 4C A6 OE CA DO 03 4C CA 
0E90- OE CA DO 03 4C D8 OE CA 
0E98- DO 03 4C 4F OF CA DO 03 
OEAO- 4C 2A 10 4C 51 10 AD 1C 
0EA8- 18 CD 20 18 DO 06 8D 2C 
OEBO- 18 4C 50 12 20 IB 12 DO 
0EB8- 03 4C B5 13 90 09 20 49 
OECO- 14 20 D4 13 20 70 14 4C 
0EC8- 98 12 AD 20 18 49 FF 8D 
OEDO- 2C 18 8D 20 18 4C A6 OE 
0ED8- 20 IB 12 BO 06 20 49 14 
OEEO- 20 D4 13 20 B5 13 AD 1C 
0EE8- 18 4D 20 18 8D 2C 18 AD 
OEFO- IE 18 8D 76 12 8D 54 13 
0EF8- AD IF 18 8D 77 12 8D 55 
OFOO- 13 AD 22 18 8D 19 13 AD 
0F08- 23 18 8D 1A 13 AD 2E 18 
0F10- 8D 79 12 8D 73 12 AD 2F 
0F18- 18 8D 7A 12 8D 74 12 20 
0F20- 12 13 FO 08 20 6E 12 CE 
0F28- 15 18 DO F8 20 4E 13 CE 
0F30- ID 18 DO 03 4C A6 16 20 
0F38- 12 13 FO 08 20 6E 12 CE 
0F40- 15 18 DO F8 20 4E 13 EE 
0F48- 21 18 DO D3 4C 62 OE AD 
0F50- 20 18 FO 03 4C 6D 16 AD 
0F58- 1C 18 FO 03 4C 6D 16 AD 
0F60- 2D 18 C9 FF DO 16 AD 2E 
0F68- 18 8D 75 OF AD 2F 18 8D 
0F70- 76 OF A2 FF BD FF FF DO 
0F78- 03 4C 89 16 20 49 14 20 
0F8O- D4 13 20 70 14 A9 01 8D 
0F88- 1A 18 A9 00 8D IB 18 AD 
0F90- IE 18 8D 63 13 8D 31 13 
0F98- 8D 3E 13 AD IF 18 8D 64 
OFAO- 13 8D 32 13 8D 3F 13 AD 
0FA8- 26 18 8D 7A 13 8D 89 13 
OFBO- 8D A7 13 8D AC 13 8D 9E 
0FB8- 13 8D A3 13 AD 27 18 8D 
OFCO- 7B 13 8D 8A 13 8D A8 13 
0FC8- 8D AD 13 8D 9F 13 8D A4 
OFDO- 13 20 IB 12 FO 02 BO 11 
0FD8- 20 5D 13 EE 1A 18 DO 06 
OFEO- EE IB 18 20 B7 15 4C Dl 
0FE8- OF AD 1A 18 DO 03 CE IB 
OFFO- 18 CE 1A 18 AD 1A 18 OD 
0FF8- IB 18 FO 1C 20 2A 13 20 
1000- 74 13 CE 25 18 20 IB 12 
1008- FO 02 BO DD 20 CA 12 20 
1010- 99 13 20 B7 15 4C 05 10 
1018- 20 62 OE 20 97 14 20 49 
1020- 14 20 D4 13 20 70 14 4C 
1028- 62 OE 20 22 14 20 E5 14 
1030- 20 B5 13 AD C6 13 8D 44 
1038- 10 AD C7 13 8D 45 10 A2 
1040- FF A9 01 9D FF FF 20 OC 
1048- 15 AD 20 18 FO 03 4C C5 
1050- 16 AD 21 18 18 69 02 10 
1058- 03 4C A6 16 AD 22 18 8D 
1060- C2 10 8D 7C 10 AD 23 18 
1068- 8D C3 10 8D 7D 10 A9 00 
1070- 8D 18 18 8D 19 18 8D 17 
1078- 18 A2 FE BD FF FF 48 29 
1080- FO 4A 8D 16 18 4A 4A 6D 
1088- 16 18 8D 16 18 68 29 OF 
1090- 6D 16 18 8D 16 18 20 FF 
1098- 11 20 FF 11 AD 16 18 8D 
10A0- 18 18 AD 17 18 8D 19 18 
10A8- 20 FF 11 20 FF 11 20 FF 
10B0- 11 20 07 12 20 FF 11 20 
10B8- 07 12 A9 00 8D 17 18 A2 
10C0- FF BD FF FF 48 29 FO 4A 



Pom's n 12 



10C8- 8D 16 18 4A 4A 
10DO- 8D 16 18 68 29 
10D8- 18 8D 16 18 20 
10E0- 14 18 C9 05 FO 
10E8- 11 AD 19 18 OD 
10F0- 2F 18 6E 19 18 
10F8- 90 14 20 BE 14 
1100- 20 D8 OE 20 OC 
1108- 18 OD 18 18 FO 
1110- 14 20 49 14 20 
1118- E5 14 20 B7 15 
1120- 20 BE 14 20 70 
1128- 2C 18 8D 1A 18 
1130- 20 B5 13 20 D4 
1138- 14 20 49 14 A9 
1140- 19 18 6E 18 18 
1148- FF 48 AD 19 18 
1150- A6 16 AD 1A 18 
1158- AD 2D 18 6D 18 
1160- 68 4C B5 13 A8 
1168- AE 2D 18 AD 2E 
1170- 11 AD 2F 18 8D 
1178- 22 18 8D 8D 11 
1180- AD 23 18 8D 8E 
1188- 13 BD FF FF 99 
1190- C8 DO F6 AD 2C 
1198- 18 68 FO 03 20 
11A0- 70 14 4C 62 OE 
11A8- 18 ED 18 18 BO 
11B0- 16 A8 8D ID 18 
11B8- AD 2E 18 8D D7 
11C0- 18 8D D8 11 AD 
11C8- DA 11 8D 54 13 
11 DO- 8D DB 11 8D 55 
11D8- FF 99 FF FF C8 
11E0- AD 2C 18 8D 1C 
11E8- 10 AD ID 18 C9 
11F0- 4C A6 16 CE ID 
11F8- 13 20 22 14 4C 
1200- 2E 16 18 2E 17 
1208- AD 16 18 6D 18 
1210- 18 AD 17 18 6D 
1218- 19 18 60 AD ID 
1220- 18 FO 06 BO 02 
1228- 60 AD IE 18 8D 
1230- IF 18 8D 46 12 
1238- 8D 48 12 AD 23 
1240- 12 AE ID 18 BD 
1248- FF FF DO 03 E8 
1250- AD IE 18 8D 76 
1258- 18 8D 77 12 AD 
1260- 79 12 8D 73 12 
1268- 8D 7A 12 8D 74 
1270- F8 18 BD FF FF 
1278- 9D FF FF CA DO 
1280- ID 18 CD 2D 18 
1288- 2D 18 8D 2D 18 
1290- FO 03 4C 62 OE 
1298- AD IE 18 8D BE 
12A0- 18 8D BF 12 AD 
12A8- CI 12 8D BB 12 
12B0- 8D C2 12 8D BC 
12B8- F8 38 BD FF FF 
12C0- 9D FF FF CA DO 
12C8- 62 OE AD IE 18 
12D0- AD IF 18 8D FD 
12D8- 18 8D FF 12 8D 
12E0- 2F 18 8D 00 13 
12E8- AD 22 18 8D 02 
12F0- 18 8D 03 13 A2 
12F8- BD FF FF FD FF 
1300- FF 9D FF FF CA 
1308- 20 62 OE AD 2D 
1310- 18 60 AO 04 18 
1318- 7E FF FF E8 DO 
1320- DO F2 4A 4A 4A 
1328- 18 60 AO 04 18 
1330- 7E FF FF E8 DO 
1338- DO F2 AE ID 18 
1340- C9 00 DO 09 EE 



6D 


1 6 


1 A 
x o 


1348- 


D0 


F3 


OF 


An 


1 A 
X o 


1350- 


18 


A2 


|-)7 
U / 


1 9 
X 


a n 

nu 


1358- 


FA 


88 


A 9 
U J 


*±U 


9*7 


1360- 


A2 


FF 


1 A 
X o 


1 A 
X O 


Fn 


1368- 


88 


DO 


cc 
DC 


1 ft 
X O 


1 ft 

X o 


1370- 


18 


4C 




Q"7 


X 4 


1378- 


FF 


3E 




a n 

ft u 


1 o. 

X 7 


1380- 


DO 


F4 


1 O 
x 


9n 


Q*7 


1388- 


BD 


FF 


riA 

UO 


DF 


OA 


1 390- 


25 


18 




c 


1 C\ 


1398- 


60 


F8 


J. '■i 


OU 


a n 

AD 


13A0- 


69 


01 


Ofi 
*£U 




X ** 


13A8- 


FF 


69 


1 9 


9n 

^U 


/ U 


1 3B0- 


F5 


D8 


vU 


1 A 
X O 


AF 


13B8- 


8D 


C6 


QA 


A9 


A Q 


13C0- 


13 


A2 


r u 


n9 


ic 


13C8- 


E8 


DO 


r u 


HC 


x o 


13D0- 


8D 


2D 


1 A 

x o 






13D8- 


91 


15 


An 

o u 


91 
Z. X 


1 A 
X o 


1 3E0- 


AD 


IE 


1 A 
A o 


An 
o u 


A A 
Oft 


13E8 - 


18 


8D 


OD 
OD 


1 1 
A x 


a n 


13F0- 


1C 


18 


An 
o u 


X J 


X o 


13F8- 


4C 


8E 


1 1 
X X 


ou 


1 A 
X ft 


1400- 


15 


AD 


FF 


FF 
r r 


FA 
CO 


1408- 


22 


18 


1 A 


An 


OA 
Z.KJ 


1410- 


8D 


95 


1 9 


1 9 
X o 


OA 


1418- 


18 


AD 


9A 


a n 


on 
^u 


1420- 


8E 


15 


no. 


tip 


A A 
ft o 


1428- 


AD 


IF 


AF 
n CI 


on 


1 A 
X O 


1430- 


18 


8D 


1 1 


An 

n u 


OF 


1438- 


95 


15 


1 F 


1 A 
X O 


An 
ou 


1440- 


AD 


ID 


a n 

ft U 


1 F 

x r 


1 A 
X o 


1448 - 


15 


AD 


1 9 
X o 


An 
ou 


FF 

r r 


1450- 


IF 


18 


FA 
CO 


nn 

UK) 


FA 

r o 


1458- 


8D 


94 


1 A 


A A 
DO 


FA 

r u 


1460- 


15 


AD 


u/ 


DA 

du 


AO 

UO 


1468- 


ID 


18 


1 A 
J. o 


9n 
•cU 


*1F 


1470- 


AD 


22 


CO 

oz 


AF 


1 ft 
X o 


1478- 


18 


8D 


1 A 

x o 


An 


1 A 
X O 


1480- 


94 


15 


1 A 
X O 


An 
ou 


1 ft 
A O 


1488- 


AD 


20 


A ? 




o n 
oiJ 


1490- 


18 


8D 


1 A 
A O 


f n 


O 1 

^ 1 


1 498 - 


26 


18 


o o 
oo 




18 


14A0- 


8D 


92 




1 9 
x ./ 


a n 

ft u 


14A8- 


15 


AD 


a n 




1 ft 

J. o 


14B0- 


24 


18 


1 A 
AO 


AH 
OU 




14B8- 


8D 


ID 


FF 
r r 


FF 


nn 


14C0- 


18 


8D 


UU 


FS 


An 

DU 


14C8- 


92 


15 


1 o 


a n 


1 F 

l r 


14D0- 


AD 


23 


or 


T A 
XO 


An 
ou 


14D8- 


18 


8D 


k n 

n u 


or 


1 A 
X O 


14E0- 


21 


18 


1 O 

X -C 


A 9 


FF 


14E8- 


8D 


91 


7n 

/ u 


FF 

r r 


r r 


14F0- 


15 


AD 


Ftl 


IJO 


a n 

ft u 


14F8- 


27 


18 


JU 


UO 


An 

nu 


1500- 


8D 


24 


UC 


on 


1 ft 
lo 


1508- 


18 


4C 




A A 
ft O 


1 A 

XO 


1510- 


91 


15 


1 9 


a n 

ftU 


1 F 
x r 


1518- 


AD 


2A 


9F 


X o 


OU 


1520- 


18 


8D 


a n 

ft u 


OF 


1 A 
X O 


1528- 


28 


18 


12 


A 9 
ft ^ 


FF 
r r 


1530- 


4C 


8E 


Fn 

r u 


r r 


FF 
r r 


1538- 


BD 


2E 


F4 


nA 

uo 


4U 


1540- 


18 


8D 


An 


P >— 


1 9 
A t 


1548- 


94 


15 


12 


a n 

ft u 


9F 
x C 


1550 - 


BD 


2C 


F°. 


x^ 


a n 

n u 


1558- 


18 


8D 


An 
ou 


FA 

r ft 


1 9 


1560- 


11 


18 


1 9 
X o 


a n 

H u 


99 


1568- 


2E 


18 


FF 


FA 

r o 


oo 
JO 


1570- 


8D 


92 


FF 

r r 


Z> L) 


r r 


1578- 


15 


BD 


nn 


F 1 
r x 


nA 
uo 


1580- 


2C 


18 


1 A 
x o 


An 
ou 


O 1 
^ X 


1588- 


9D 


2D 


AF 
ftC 


£ X 


1 ft 
X o 


1590- 


BD 


FF 


F A 
r n 


A A 
Oft 


A A 
OO 


1 598 - 


F7 


60 


4 A 


An 

ou 


X -~J 


15A0- 


CO 


10 


AE 


1 D 


18 


X Dfto - 


10 


CO 


FA 


6A 


88 


15B0- 


B7 


15 


BD 


FF 


FF 


15B8- 


AD 


00 


ID 


18 


E8 


15C0- 


06 


8D 



CE 


ID 


18 


60 


AO 


04 


15C8- 


FF 


3E 


FF 


FF 


CA 


DO 


15D0- 


DO 


F4 


60 


AO 


04 


18 


15D8- 


3E 


FF 


FF 


CA 


DO 


FA 


15E0- 


F4 


CE 


ID 


18 


AE 


ID 


15E8- 


3D 


13 


AO 


04 


IS 


A2 


15F0- 


FF 


FF 


CA 


DO 


FA 


88 


15F8- 


CE 


25 


18 


AE 


25 


18 


1600- 


FF 


C9 


00 


DO 


09 


EE 


1608- 


E8 


DO 


F3 


CE 


25 


18 


1610- 


18 


A2 


FF 


BD 


FF 


FF 


1618- 


9D 


FF 


FF 


CA 


BD 


FF 


1620- 


00 


9D 


FF 


FF 


CA 


DO 


1628- 


4C 


82 


13 


AD 


2E 


18 


1630- 


13 


AD 


2F 


18 


8D 


C7 


1638- 


00 


A9 


00 


9D 


FF 


FF 


1640- 


FA 


8D 


2C 


18 


A9 


FF 


1648- 


18 


60 


AD 


2E 


18 


8D 


1650- 


AD 


2F 


18 


8D 


92 


15 


1658- 


18 


8D 


94 


15 


AD 


IF 


1660- 


95 


15 


AD 


2C 


18 


8D 


1668- 


AD 


2D 


18 


8D 


ID 


18 


1670- 


15 


AD 


2E 


18 


8D 


91 


1678- 


2F 


18 


8D 


92 


15 


AD 


1680- 


8D 


94 


15 


AD 


23 


18 


1688- 


15 


AD 


2C 


18 


8D 


20 


1690- 


2D 


18 


8D 


21 


18 


4C 


1698- 


AD 


IE 


18 


8D 


91 


15 


16A0- 


18 


8D 


92 


15 


AD 


2E 


16A8- 


94 


15 


AD 


2F 


18 


8D 


16B0- 


AD 


1C 


18 


8D 


2C 


18 


16B8- 


18 


8D 


2D 


18 


4C 


8E 


16C0- 


IE 


18 


8D 


91 


15 


AD 


16C8- 


8D 


92 


15 


AD 


22 


18 


16D0- 


15 


AD 


23 


18 


8D 


95 


16D8- 


1C 


18 


8D 


20 


18 


AD 


16E0- 


8D 


21 


18 


4C 


8E 


15 


16E8- 


18 


8D 


91 


15 


AD 


23 


16F0- 


92 


15 


AD 


2E 


18 


8D 


16F8- 


AD 


2F 


18 


8D 


95 


15 


1700- 


18 


8D 


2C 


18 


AD 


21 


1708- 


2D 


18 


4C 


8E 


15 


AD 


1710- 


8D 


91 


15 


AD 


27 


18 


1718- 


15 


AD 


IE 


18 


8D 


94 


1720- 


IF 


18 


8D 


95 


15 


AD 


1728- 


8D 


1C 


18 


AD 


25 


18 


1730- 


18 


4C 


8E 


15 


AD 


2A 


1738- 


91 


15 


AD 


2B 


18 


8D 


1740- 


AD 


22 


18 


8D 


94 


15 


1748- 


18 


8D 


95 


15 


AD 


28 


1750- 


20 


18 


AD 


29 


18 


8D 


1758- 


4C 


8E 


15 


AD 


2E 


18 


1760- 


15 


AD 


2F 


18 


8D 


92 


1768- 


26 


18 


8D 


94 


15 


AD 


1770- 


8D 


95 


15 


AD 


2C 


18 


1778- 


18 


AD 


2D 


18 


8D 


25 


1780- 


8E 


15 


AD 


2E 


18 


8D 


1788- 


AD 


2F 


18 


8D 


92 


15 


1790- 


18 


8D 


94 


15 


AD 


2B 


1798- 


95 


15 


AD 


2C 


18 


8D 


17A0- 


AD 


2D 


18 


8D 


29 


18 


17A8- 


15 


29 


IF 


OA 


OA 


AA 


17B0- 


18 


8D 


91 


15 


BD 


2F 


17B8- 


92 


15 


AD 


2E 


18 


8D 


17C0- 


AD 


2F 


18 


8D 


95 


15 


17C8- 


18 


8D 


2C 


18 


BD 


2D 


17D0- 


2D 


18 


4C 


8E 


15 


AD 


17D8- 


29 


IF 


OA 


OA 


AA 


AD 


17E0- 


8D 


91 


15 


AD 


2F 


18 


17E8- 


15 


BD 


2E 


IS 


8D 


94 


17F0- 


2F 


18 


8D 


95 


15 


AD 


17F8- 


9D 


2C 


18 


AD 


2D 


18 


1800- 


18 


4C 


8E 


15 


A2 


00 


1808- 


FF 


9D 


FF 


FF 


E8 


DO 


1810- 


20 


B7 


15 


48 


AD 


00 


1818- 


12 


C9 


AO 


DO 


0E 


8D 


1820- 


AD 


00 


CO 


10 


FB 


20 


1828- 


8D 


10 


CO 


68 


60 


48 


1830- 


CO 


10 


OA 


C9 


83 


DO 


1838- 


10 


CO 


4C 


1C 


16 


68 


1840- 



60 EE D2 15 DO 03 EE D3 
15 AD FF FF C9 AO F0 Fl 
C9 8D F0 02 C9 BA 60 20 
Dl 15 C9 B0 B0 01 60 C9 
BA 90 02 18 60 38 60 20 
Dl 15 C9 CI B0 01 60 C9 
DB 90 02 18 60 38 60 20 
8C 17 8D BF AO C5 D2 D2 
C5 D5 D2 AO C4 C5 AO D3 
D9 CE D4 CI D8 C5 8D 8D 
00 4C C9 09 20 8C 17 8D 
BF AO C9 CE D4 C5 D2 D2 
D5 DO D4 C9 CF CE AO C4 
C5 AO CC A7 D5 D4 C9 CC 
C9 D3 CI D4 C5 D5 D2 8D 
8D 00 4C C9 09 20 8C 17 
8D BF AO C6 CI C3 D4 C5 
D5 D2 AO D2 C5 DO C5 D4 
C9 D4 C5 D5 D2 AO C9 CE 
C3 CF D2 D2 C5 C3 D4 8D 
8D 00 4C C9 09 20 8C 17 
8D BF AO CF DO C5 D2 CI 
CE C4 C5 AO CE C5 C7 CI 
D4 C9 C6 8D 8D 00 4C C9 
09 20 8C 17 8D BF AO C4 
C9 D6 C9 D3 C9 CF CE AO 
DO CI D2 AO DA C5 D2 CF 
8D 8D 00 4C C9 09 20 8C 
17 8D BF AO D2 C5 D3 D5 
CC D4 CI D4 AO D4 D2 CF 
DO AO C7 D2 CI CE C4 8D 
8D 00 4C C9 09 20 8C 17 
8D BF AO C5 D8 DO CF D3 
CI CE D4 AO CE C5 C7 CI 
D4 C9 C6 8D 8D 00 4C C9 
09 20 8C 17 8D BF AO CI 
C6 C6 C5 C3 D4 CI D4 C9 
CF CE AO C9 CE C3 CF D2 
D2 C5 C3 D4 C5 8D 8D 00 
4C C9 09 20 8C 17 8D BF 
AO DO D2 C9 CD CI C9 D2 
C5 AO C9 CE C3 CF D2 D2 
C5 C3 D4 8D 8D 00 4C C9 
09 48 20 8C 17 8D BF AO 
D6 CI D2 C9 CI C2 CC C5 
AO A7 00 68 20 ED FD 20 
8C 17 A7 AO CE CF CE AO 
CI C6 C6 C5 C3 D4 C5 C5 
8D 8D 00 4C C9 09 20 8C 
17 8D BF AO C5 D8 DO D2 
C5 D3 D3 C9 CF CE AO C9 
CE C3 CF D2 D2 C5 C3 D4 
C5 8D 8D 00 4C C9 09 20 
8C 17 8D BF AO CD CI D5 
D6 CI C9 D3 AO CF DO C5 
D2 CI D4 C5 D5 D2 8D 8D 
00 4C C9 09 20 AA 17 20 
Bl 17 20 BF 17 20 DF 17 
4C EB 17 20 AA 17 20 Bl 
17 20 CF 17 20 DF 17 4C 
EB 17 85 IB 86 1C 84 ID 
60 BA BD 03 01 85 19 BD 
04 01 85 1A 4C F2 17 AO 
00 Bl 19 FO 09 20 ED FD 
20 F2 17 4C CI 17 60 AO 
00 Bl 19 FO 09 20 FO FD 
20 F2 17 4C Dl 17 60 BA 
A5 19 9D 03 01 A5 1A 9D 
04 01 60 A5 IB A6 1C A4 
ID 60 E6 19 DO 02 E6 1A 
60 A9 8D 4C FO FD A6 A4 
CO BF AC A2 D8 OA 42 OB 
8A OB 54 OC 20 OB C4 OA 
17 4C C7 17 60 AO 00 Bl 
19 FO 09 20 FO FD 20 F8 
17 4C D7 17 60 BA A5 19 
9D 03 01 A5 1A 9D 04 01 
60 A5 IB A6 1C A4 ID 60 
E6 19 DO 02 E6 1A 60 00 
00 
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EXP(PI*SQR(163)) cst-il cnticr ? 

Olivier Herz 



Le probleme 

II y a quelques annees, la revue 
Sciences & Vie annoncait dans ses 
recreations mathematiques que 
EXP(PI*SQR(163)) etait entier et va- 
lait 262.537.412.640.768.744, en 
avancant que des calculs pousses sur 
ordinateur n'avaient donne que des 
chiffres 9 dans les 2 millions de pre- 
mieres decimales. La revue parlait 
meme d'une demonstration basee 
sur le nombre d'Euler (nombre irra- 
tionnel, comme PI et e). 

Calcul sur TI 58 

Je voulais en avoir le coeur net. 
Aussi, en 1979, j'attaquai le pro- 
bleme muni de ma calculatrice TI 58. 
J'utilisai pour cela un programme de 
multiplication de nombres de 50 chif- 
fres. Comme toutes les autres opera- 
tions etaient manuelles a cause de la 
faible capacite de la calculatrice, j'uti- 
lisai de nombreuses astuces pour cal- 
culer la racine carree et l'exponen- 
tielle. Apres un apres-midi de calcul 
(et un autre pour verification), j'ob- 
tins un resultat a 50 chiffres (done 31 
decimales, dont au moins 25 de- 
vaient etre bonnes en tenant compte 
des erreurs d'arrondi). Qu'obtins-je ? 

Calcul en Basic 

En 1981, muni d'un Apple, je deci- 
dai de confirmer ce resultat avec un 
programme Applesoft (joint sur la 
disquette d'accompagnement de ce 
numero, afin que les lecteurs interes- 
ses puissent Teplucher"). Ce pro- 
gramme utilise des tableaux pour sta- 
cker, par tranches de 4 chiffres, des 
grands nombres. De plus, il possede 
des routines pour faire des multiplica- 
tions et additions de grands nombres 
ou des divisions de grands nombres 
par une constante d'au plus 4 chif- 
fres. La, les resultats sont obtenus 
bien plus rapidement (14 mn pour 
80 chiffres, 5 mn avec un pro- 
gramme compile). 

Le Calculateur Entier 

Enfin, tel Zorro, arrive le Calculateur 
Entier de Jacques Duma, muni de la 
division de grands nombres; je vais 
montrer dans les lignes qui suivent a 
quel point il devient alors facile de 
programmer ce calcul. 

NDLR : Olivier Herz a redige son ar- 
ticle a partir de la version 1.0 du cal- 
culateur. La lecture de cet article a 
amene Jacques Duma a realiser et a 
nous envoyer la version 1.2, publiee 
dans ce numero. Cette version a 



ajoute la pause entre deux instruc- 
tions (,), 1' introduction des remarques 
(") et surtout la multiplication par 
une puissance de 10 ('). Ainsi, le 
programme adapte a cette version 
calcule-t-il le resultat en cinq minutes 
de moins que EXP. EXEC ! 
Nous avons decide de ne pas modi- 
fier !e texte original d'Olivier pour lui 
garder sa virginite initiale (au texte, 
bien sur). Le lecteur relativisera done 
certaines remarques et pourra d'au- 
tant mieux apprecier la qualite des 
analyses d'Olivier et l'utilite de ses 
observations. 

1 - Comme on travaille uniquement 
sur des nombres entiers, il va falloir 
utiliser une constante multiplicative 
pour transformer des nombres deci- 
maux en nombres entiers. Soit par 
exemple, pour des calculs sur 100 
decimales (on pourrait aller presque 
jusqu'a 254=508/2 decimales) : 
K=10"l00 

Bien entendu, K n'est pas necessaire- 
ment une puissance de 10. Voir a ce 
sujet la remarque (2). 

2 - Pour calculer la racine carree de 
163, on utilise la methode de New- 
ton, par approximations successives 
avec la formule U n *i = 
(U n +163/U n ) / 2, en prenant 13 
comme approximation de depart. 
Soit: 

R=K*K : R=163*R: U=13*K: 
7# : X=R/U : U=X+U : U=U/2 
7 iterations suffisent pour avoir 100 
bonnes decimales. 

3 - PI est suppose connu (le Palais 
de la Decouverte publie 2000 deci- 
males sur une carte postale). Et Ton 
calcule PI*SQR(163) : 

R=3 14159 26535 89793 23846 
26433 83279 50288 41971 69399 
37510 58209 74944 59230 78164 
06286 20899 86280 34825 34211 
70679*U : R=R'K 

4 - On obtient 40.109... et l'on va 
calculer EXP(40.109...) = EXP(40) * 
EXP(0.109...). On ne garde done 
que la partie decimale du resultat : 

X = 40*K : R = R-X 

5 - On calcule son exponentielle par 
developpement limite avec la formule 
EXP(X) = 1 + X + X 2/2 + 
X n/n!=somme des Un, avec U =l 
et U n = U n -l*X/n: 

S=K: 1=0: U=K : 45# : 1=1+1: 
U=U*R : U=U/K : U=U/I : S=S+U 
On calcule suffisamment de termes 
(ici 45) pour que U n soit negligeable. 

6 - On calcule de la meme facon, 
avec ici X=l : 



E=K: 1=0: U=K : 70# : 1=1+1 : 
U=U/I : E=E+U 

7 - II ne reste plus qua calculer et 
fournir le resultat (avec 100 decima- 
les, dont peut-etre 80 a 90 de signifi- 
catives) : 
S=S*E : S=S/K 
?S 

Que pensez-vous du resultat ? Scien- 
ces & Vie n'avait-il pas publie son ar- 
ticle dans le numero d'avril ? 

Remarques 

(1) Tous ces resultats peuvent etre 
obtenus automatiquement grace au 
fichier EXP. EXEC. II suffit de se met- 
tre dans le calculateur et d'EXECuter 
ce fichier pour ce faire; on obtient le 
resultat (ici 100 chiffres) en un peu 
plus de 20 minutes. Faire MON 
C,I,0 au prealable si l'on veut voir 
l'avancement des calculs. 

On peut en effet utiliser de veritables 
programmes pour ce calculateur 
grace aux fichiers EXEC. Utilisez Ap- 
plewriter II ou reportez-vous au nu- 
mero 3 de Pom's (p. 55) ou au re- 
cueil (p. 142) pour fabriquer de tels 
fichiers. 

(2) Au vu de ces calculs, il semble 
qu'on puisse emettre un regret pour 
le calculateur. On aurait gagne beau- 
coup de temps dans les calculs pour 
nombres non entiers si Ton avait eu 
une operation donnant, a partir d'un 
grand nombre N et d'un entier (posi- 
tif ou negatif ) K de 3 chiffres au plus, 
le resultat N*(10 K). Les nombres 
etant codes en BCD, ce calcul aurait 
ete ultra-rapide. 

(3) Bien entendu, en utilisant des as- 
tuces, on peut aller bien plus vite. 
Mais la methode utilisee presente 
l'avantage d'etre la plus simple. 

Liste de EXP.EXEC 

K=10"l00 

R=K*K : R=163*R: U=13*K: 
7# : X=R/U : U=X+U : U=U/2 

R=3 14159 26535 89793 23846 
26433 83279 50288 41971 69399 
37510 58209 74944 59230 78164 
06286 20899 86280 34825 34211 
70679*U : R=R/K 

X = 40*K : R = R -X 

S=K: 1=0: U=K : 45# : 1=1+1: 
U=U*R : U=U/K : U=U/I : S=S+U 

E=K: 1=0: U=K : 70# : 1=1+1: 
U=U/I : E=E+U 
40# : S=S*E : S=S/K 
?S 
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Analyse de Magic Mailer 



Guy Lapautre 
Presentation du produit 

Magic Mailer (Autocourrier pour la 
version franchise) est un logiciel 
complementaire a Magic Window 
(Autotexte). distribue par ARTSCI 
Inc. et diffuse en France par Ordina- 
teur Express. Nous emploierons dans 
la suite les noms francais. 

La version que nous avons testee est 
theoriquement adaptee a ("Apple //e, 
mais pas plus que la' version 2 d'Au- 
totexte: elle n"utilise pas les possibili- 
tes nouvelles du clavier. C'est d"ail- 
leurs moins ennuyeux que pour 
Autotexte. car les mouvements de 
curseur sont beaucoup moins fre- 
quents. C'est pourtant dommage... 

II convient de remarquer qu'Auto- 
courrier est exclusivement destine a 
1" impression et ne permet de creer 
aucun texte ni fichier. L'utilisateur est 
cense utiliser Autotexte pour creer les 
textes proprement dits et les fichiers 
(bien qu'il soit possible, dans certai- 
nes conditions, d" utiliser des fichiers 
exogenes. en creant un "moniteur"). 

La presentation sous reliure est cor- 
recte. sans avoir le raffinement de 
nombreux logiciels pour Apple. La 
documentation est redigee en an- 
glais. Une traduction en francais est 
egalement fournie (avec quelques 
adaptations). Les auteurs previennent 
qu'il s'agit d'une version provisoire. 
Nous y avons effectivement trouve 
un certain nombre d'erreurs ou im- 
proprietes. Telle qu elle est. elle a le 
merite d'exister. 

Fonctionnalites de base 

Autocourrier est avant tout un 
"adresseur automatique". II permet 
d'adresser commodement des lettres- 
type a toutes les personnes enregis- 
trees dans un fichier, ou a une selec- 
tion d'entre elles. La selection, s'il y 
a lieu, se fait a partir du contenu de 
certains champs, avec une tres large 
combinaison de conditions logiques. 

Allant un peu plus loin, il est possible 
de faire figurer conditionnellement 
des mots, membres de phrases ou 
paragraphes permettant de personna- 
liser les lettres. 

Les donnees editables sont de 4 
types : 

• des textes figurant dans la '"lettre" 
creee sous Autotexte: 

• des donnees figurant dans le fi- 
chier associe: 

• des "constantes". en particulier 
une date; 



• des donnees entrees au clavier au 
fur et a mesure de l'impression. 

En revanche. Autocourrier ne 
comporte strictement aucune possibi- 
lity de calcul. ce qui interdit son em- 
ploi pour des operations, meme tres 
simples, du type facturation ou edi- 
tion de devis... 

Le document a editer 

Cree sous Autotexte. il se presente 
comme un document normal dans 
lequel on aurait opere un certain 
nombre d'amenagements. 

Des zones sont reservees aux don- 
nees issues du fichier; elles sont repe- 
rees par des identifieurs que Ton re- 
trouve dans le '"moniteur"' du fichier. 
Ces identifieurs permettent en outre 
de selectionner l'edition de portions 
de texte selon le contenu des 
champs du fichier associe. de jouer 
avec les majuscules et minuscules.... 

Des symboles de justification peu vent 
etre introduits dans le texte. si des 
zones de longueurs variables font 
que la justification systematique faite 
sous Autotexte ne puisse pas tou- 
jours convenir. 

Des symboles speciaux peuvent etre 
utilises, par exemple pour les ensem- 
bles titre/nom prenoms. ou la date. 

Ces options sont certes interessantes. 
mais on aboutit assez vite a un texte 
esoterique si on veut aller loin dans 
les possibilites du logiciel. 

Le fichier associe 

Qu'il soit cree sous Autotexte ou 
adapte a partir d'un fichier exogene. 
ce fichier comporte un premier enre- 
gistrement vide, qui indique sa struc- 
ture (en rappelant que les identifieurs 
utilises sont ceux qu"on retrouve 
dans le texte). 

Bien entendu. rien n'interdit d'avoir 
un fichier comportant des rubriques 
non utilisees dans un texte. mais qui 
pourront 1'etre dans un autre (au 
meme titre que le texte peut contenir 
des identifieurs non presents dans le 
fichier, et qui correspondront a des 
donnees a entrer au clavier). 

Le fichier, considere comme un veri- 
table texte par Autocourrier, est par 
definition loge en memoire centrale 
avec le texte lui-meme. II ne saurait 
done etre volumineux ! Cette limita- 
tion en rend I'emploi difficile pour de 
grosses applications professionnelles. 
11 existe toutefois un palliatif. avec 
1' utilisation d'une forme de chalnage. 
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Signalons par ailleurs qu'on peut fort 
bien travailler sans fichier. en rentrant 
au clavier les donnees pour lesquel- 
les des identifieurs ont ete places 
dans le texte. ce qui est une solution 
seduisante pour des applications de 
petit volume, en permettant une per- 
sonnalisation de lettres a peu de 
frais. au niveau d'applications "per- 
sonnelles. professionnelles"'. 

Utilisations 

Deux options de base amenent a 
quatre modes d'exploitation : 

• en continu ou cas par cas: 

• tout le fichier ou une selection. 

Dans la pratique, deux d'entre elles 
sont particulierement utiles : 

• en continu avec selection (si on 
peut exprimer la selection sous 
forme de criteres logiques): 

• cas par cas et tout le fichier (per- 
mettant une selection a l examen 
de chaque enregistrement). 

Voila un des points forts d'Autocour- 
rier. d'autant plus que les possibilites 
de selection logique sont tres eten- 
dues et. comme le disent d'ailleurs 
les auteurs de la documentation, 
"plus simples a mettre en oeuvre 
qu'a expliquer" (un effort pourrait 
cependant etre fait pour clarifier les 
explications...). 

En resume 

Autocourrier est un honnete systeme 
d'adressage automatique. dont deux 
points forts sont les larges possibilites 
de selection de rubriques etou de 
paragraphes, et un systeme tres 
complet de selection dans le fichier 
associe. 

On regrettera principalement un cer- 
tain esoterisme des textes si on utilise 
beaucoup d'options. ainsi que l'ab- 
sence complete de fonctions de cal- 
cul. Enfin, comme dans le cas d' Au- 
tocourrier, il est dommage que les 
auteurs n'aient pas pris en compte 
les possibilites accrues offertes par le 
clavier de 1'Apple He. ■ 
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Initiation a l'assembleur (2) 

Gerard Michel 



Puisque nous n'avons pas ete sub- 
merges par un courrier nous intimant 
lordre de mettre fin sur le champ a 
cette serie. nous la poursuivrons sans 
plus attendre par l'examen de nou- 
velles instructions choisies dans le re- 
pertoire du langage assembleur. 

Les instructions de 
comparaison 

Elles jouent en assembleur le meme 
role fondamental qu'en Basic, en 
permettant d'orienter le programme 
vers differents traitements selon le re- 
sultat de tests effectues sur des varia- 
bles caracteristiques. 
On ne peut toutefois comparer direc- 
tement deux variables quelconques, 
ar exemple le contenu de 1'adresse 
32 avec celui de I'adresse $303, ni 
une variable quelconque a une va- 
leur donnee. par exemple le contenu 
de I'adresse $18 et la valeur #$A0. 

En fait, la comparaison "stricto 
sensu" n'est possible quentre l'un 
des registres du microprocesseur (ac- 
cumulateur. registre X ou registre Y) 
et "autre chose" (variable ou cons- 
tan te). 

II faut cependant noter que certaines 
instructions agissant sur une case-me- 
moire. sans lien direct avec une veri- 
table comparaison. peuvent donner 
lieu a des tests significatifs par le biais 
de ce que nous avions appele "le 
dernier resultat". dans Particle prece- 
dent, lors de l'examen des instruc- 
tions BEQ et BNE. Nous en trouve- 
rons d'ailleurs un exemple plus loin. 

L'assembleur se distingue en outre 
du Basic en ce que 1' operation de 
comparaison est realisee separement 
du test effectue sur son resultat. 
Ainsi, alors que Ton fait "IF A = B 
THEN..." en Basic, on ecrirait en as- 
sembleur une sequence du type : 
"Comparer A et B" puis "Si le resul- 
tat de la comparaison est l'egalite 
alors...". Le microprocesseur soustrait 
en fait B de A (mais sans changer la 
valeur de A), et positionne le "der- 
nier resultat" en consequence; le test 
porte done en definitive sur la valeur 
de ce "dernier resultat". 
Pour ce qui est des tests autorises. 
nous ne retiendrons pour 1' instant 
que ceux qui ont deja ete evoques 
dans 1' article precedent, a savoir 
l'egalite (testee par BEQ, soit "der- 
nier resultat" = 0) et la difference 
(testee par BNE, soit "dernier resul- 
tat" <> 0). Nous traiterons des 
autres possibilities dans un prochain 
article, dans lequel sera precisee la 



nature reelle de notre fameux "der- 
nier resultat". 

Comparaison avec I'accumula- 
teur 

Le code "mnemonique" de 1' instruc- 
tion est CMP. ce qui suffit pour indi- 
quer que l'un des termes de la 
comparaison est 1'accumulateur. Le 
second terme depend de ce qui suit 
CMP. 

On peut ainsi comparer a 1'accumu- 
lateur soit une valeur donnee, soit le 
contenu d'une adresse. Dans cette 
seconde hypothese, tous les modes 
d'adressage sont autorises pour defi- 
nir I'adresse concernee. Vous trouve- 
rez ci-apres la liste des syntaxes pos- 
sibles pour 1' instruction CMP et les 
codes hexadecimaux correspondants 
(ADS designe une etiquette symboli- 
que affectee a I'adresse dans le pro- 
gramme en assembleur). 

• CMP valeur = CMP #$NN = C9 
NN (exemple : C9 AO) 

• CMP adresse en page zero = 
CMP ADS = CMP $aa = C5 aa 

• CMP adresse quelconque = CMP 
ADS = CMP $aaaa = CD octet 
bas/octet haut (exemple : CMP 
$90FF = CD FF 90) 

• CMP "adresse page zero",X = 
CMP ADS.X = CMP $aa.X = D5 
adresse 

• CMP ADS.X = CMP $aaaa,X = 
DD octet bas/octet haut 

• CMP ADS.Y = CMP $aaaa,Y = 
D9 octet bas/octet haut 

• CMP (ADS.X) = CMP ($aa.X) = 
CI adresse 

• CMP (ADS.Y) = CMP ($aa).Y = 
Dl adresse 

Notez bien que le contenu de 1'accu- 
mulateur n'est pas affecte par l'ope- 
ration de comparaison. ce qui auto- 
rise les comparaisons en chalne, 
telles que : 

CMP #$80 

BEQ ETIQUETTE 1 

CMP #$8D 

BEQ ETIQUETTE2 

Comparaison avec le registre X 

Le code mnemonique est CPX. 
La encore, il est possible de compa- 
rer X avec une valeur ou le contenu 
d'une adresse, mais seul l'adressage 
direct non indexe est autorise. 
Le contenu de X demeure inchange, 
ce qui permet egalement les compa- 
raisons en chaine. 



• CPX valeur = CPX #$NN = E0 
NN (par exemple, E0 04) 

• CPX adresse page zero = CPX 
ADS = CPX $aa = E4 adresse 

• CPX adresse quelconque = CPX 
ADS = CPX $aaaa = EC octet 
bas/octet haut 

Comparaison avec le registre Y 

Le code mnemonique est CPY. 
Memes remarques generates que 
pour CPX. 

• CPY valeur = CPY #$NN = CO 
NN 

• CPY adresse page zero = CPY 
ADS = CPY $aa = C4 adresse 

• CPY adresse quelconque = CPY 
ADS = CPY $aaaa = CC octet 
bas/octet haut 

Augmenter ou diminuer 
le contenu d'une adresse 

INC 

Cette instruction permet d'augmenter 
de 1 le contenu de I'adresse donnee 
apres INC et conespondrait a 
"A=A+1" en Basic. Elle agit directe- 
ment sur I'adresse concernee, .".ans 
qu'il soit necessaire de passer par 
l'intermediaire d'un registre. 

Une adresse correspondant a un 
octet, son contenu ne peut prendre 
qu'une valeur comprise entre $0 et 
$FF (0 a 255 en decimal). Ainsi, si 
I'adresse ADR contient $FF et que 
vous faites "INC ADR", vous trouve- 
rez dans ADR (de mSme que 
9 + 1=0 si on ne compte que sur un 
chiffre !). 

De plus, notre fameux "dernier resul- 
tat" tient compte de la valeur de 
I'adresse apres son traitement par 
INC; il devient nul si I'adresse 
contient (comme dans le cas ci- 
dessus) et sera different de dans 
tous les autres cas. On peut done ef- 
fectuer des tests significatifs par BNE 
et BEQ en sortie d'une instruction 
INC. 

Ceci est particulierement utile lorsque 
Ton veut manipuler l'adresse-base 
d'un adressage indirect indexe par Y, 
ou. de maniere generale, une valeur 
superieure a 255 et qui occupe done 
deux octets. Supposons ainsi que 
Ton ait a incrementer de 1 en 1 une 
valeur stockee aux adresses $18 
(octet bas) et $19 (octet haut). La se- 
quence d'instructions a utiliser serait : 
Ins.l INC $18 
Ins.2 BNE Ins.4 
Ins. 3 INC $19 
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Ins.4 ... 

On augmente 1* octet bas de 1; si le 
resultat n'est pas nul, on saute a la 
suite du programme, sinon on aug- 
mente l'octet haut de 1. Si Ton arrive 
a Ins.l avec "0418" dans $18-$19. 
on aura "0518" en arrivant a Ins.4. 
mais si l'on arrive avec "FF18" on 
aura "0019" apres etre passe par les 
deux INC. 

L'adressage indirect ne peut etre uti- 
lise avec INC. 

• INC adresse page zero = INC 
ADS = INC $aa = E6 adresse 

• INC adresse quelconque = INC 
ADS = INC $aaaa = EE octet 
bas/octet haut 

• INC "adresse page zero".X = INC 
ADS.X = INC $aa,X = F6 
adresse 

• INC "adresse quelconque".X = 
INC ADS.X = INC Saaaa.X = FE 
octet bas/octet haut 

DEC 

Comme on pouvait legitimement s'y 
attendre. DEC permet de diminuer 
de 1 le contenu d'une adresse. La 
encore, le "dernier resultat" evolue 
en fonction du contenu de l'adresse 
apres DEC, mais on ne peut l'utiliser 
aussi facilement qu'avec INC pour la 
manipulation de valeurs sur deux 
octets, puisque l'octet haut doit dimi- 
nuer lorsque l'octet bas vaut $FF et 
non lorsqu'il vaut (de meme que 
Ton ne change de dizaine que lors- 
que le chiffre des unites tombe a 9 et 
non a 0). 

En reprenant notre . exemple prece- 
dent, la sequence d'instructions a uti- 
liser avec DEC serait : 
Ins.l DEC $18 
Ins.2 LDA $18 
Ins.3 CMP #$FF 
Ins.4 BNE Ins.6 
Ins.5 DEC $19 
Ins.6 ... 

(on aurait pu egalement utiliser les 
registres X ou Y en lieu et place de 
l'accumulateur) 

• DEC adresse page zero = DEC 
ADS = DEC $aa = C6 adresse 

• DEC adresse quelconque = DEC 
ADS = DEC $aaaa = CE octet 
bas/octet haut 

• DEC "adresse page zero".X = 
DEC ADS.X = DEC $aa,X = D6 
adresse 

• DEC "adresse quelconque", X = 
DEC ADS.X = DEC $aaaa.X = 
DE octet bas/octet haut 

Saut inconditionnel : 
JMP 

Les instructions BEQ et BNE, main- 
tenant bien connues de tous, provo- 
quent un branchement a un endroit 



donne du programme si le resultat 
du test effectue sur le "dernier resul- 
tat" repond a leur attente (respective- 
ment egal a et different de 0). De 
plus, nous avons vu que le branche- 
ment se fait en fonction d'un depla- 
cement et non directement sur une 
adresse que l'on indiquerait derriere 
BEQ ou BNE. On se "branche" 10 
octets plus bas. ou encore 48 octets 
plus haut. si la condition est satisfaite. 

L'instruction JMP. en revanche, pro- 
voque un saut "inconditionnel" a 
l'adresse indiquee a sa suite: elle se 
rapproche en cela de l'instruction 
GOTO du Basic. 

Ainsi. "JMP $FDE0" (ou JMP ADR 
si ADR a ete definie comme etiquette 
pour $FDE0) provoquera un saut a 
l'adresse $FDE0 des que sera ren- 
contre le code de JMP. 
JMP differe de JSR comme GOTO 
de GOSUB : un RTS ne ramenerait 
pas a l'instruction qui suit JMP mais 
a celle qui suit le dernier JSR effec- 
tue dont on ne serait pas encore re- 
venu. 

II est possible d' utiliser JMP avec 
l'adressage indirect : le saut se fait 
alors a l'adresse contenue dans 
l'adresse indiquee apres JMP. 

• JMP adresse absolu = JMP ADS 
= JMP $aaaa = 4C octet 
bas/octet haut 

• JMP adresse indirect = JMP 
(ADS) = JMP ($aaaa) = 6C octet 
bas/octet haut 

La pile du 
microprocesseur 

Lorsque le microprocesseur rencon- 
tre une instruction JSR, il doit stocker 
quelque part l'adresse du point de 
retour a laquelle ramenera le RTS de 
fin de la sous-routine. II dispose pour 
cela d un "silo" bien a lui, baptise 
"pile". En simplifiant, on peut dire 
que l'adresse de retour est posee sur 
le sommet de la pile et que le pro- 
cesses vient l'y reprendre lorsqu'il 
rencontre un RTS. 

Considerons par exemple les instruc- 
tions suivantes : 

Adresse JSR Adresse 2 
Adresse 1 Suite du programme 
Adresse 2 JSR Adresse 4 
Adresse 3 RTS 
Adresse 4 JSR Adresse 6 
Adresse 5 RTS 
Adresse 6 LDA $F0 
— RTS 

Apres le "JSR Adresse 6", la pile 
contiendra dans l'ordre : 

Adresse 5 
Adresse 3 
Adresse 1 

Le RTS qui suit "Adresse 6" rame- 
nera done a "Adresse 5", dont le 
RTS ramenera alors a "Adresse 3" 



qui provoquera finalement le retour a 
"Adresse 1". La pile est de type 
"dernier entre - premier sorti" : une 
nouvelle donnee a stocker est tou- 
jours posee sur le dessus et, chaque 
fois qu'il doit recuperer une informa- 
tion stockee dans la pile, le proces- 
ses prend toujours celle qui se 
trouve au sommet. 

Le programmeur peut egalement uti- 
liser cette pile pour des stockages 
temporaires. En particulier. deux ins- 
tructions permettent d'empiler et de 
depiler l'accumulateur : 

• PHA (code 48) : depose le 
contenu de l'accumulateur au 
sommet de la pile 

• PLA (code 68) : transfere l'octet 
qui se trouve au sommet de la pile 
dans l'accumulateur. 

Cela limite le nombre d'adresses a 
utiliser pour une sauvegarde momen- 
tanee d'information, dans le cas par 
exemple ou l'on veut sauvegarder le 
contenu de certaines adresses avant 
l'appel d'une sous-routine qui utilise 
et modifie ce contenu, puis recuperer 
les valeurs initiales au retour de la 
sous-routine. De meme si l'on doit 
calculer la nouvelle adresse-base 
d'un adressage indirect post-indexe 
par Y en ajoutant a l'ancienne 
adresse une valeur obtenue juste- 
ment par adressage post-indexe sur 
la base de cette ancienne adresse (le 
principe consiste alors a mettre dans 
l'accumulateur l'octet bas de 
l'adresse. lui ajouter la donnee obte- 
nue avec la valeur adequate de Y, 
empiler l'accumulateur. charger en- 
suite l'accumulateur avec l'octet haut 
de l'adresse. lui ajouter la donnee 
obtenue avec la seconde valeur ade- 
quate de Y. stocker le resultat dans 
l'octet haut de l'adresse. puis depiler 
dans l'accumulateur et stocker ce 
dernier dans l'octet bas de l'adresse - 
ce que Ton ne pouvait faire des le 
debut puisque cela aurait modifie 
l'adresse-base avant que l'on ait re- 
cupere la valeur correcte a ajouter a 
l'octet haut. d'ou incoherence des re- 
sultats). 

Lorsque l'on utilise la pile pour sto- 
cker des donnees. il convient de se 
rappeler que, pour le bon fonction- 
nement du systeme. tout ce qui a pu 
etre depose sur une information doit 
etre retire avant la recuperation a 
bon escient de celle-ci. Le petit pro- 
gramme suivant. par exemple. 
conduirait a des resultats peu confor- 
mes aux esperances du program- 
meur : 

LDA $18 
PHA 
JSR SR 



SR PLA 
RTS 
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En effet. l'accumulateur est empile. 
puis le "JSR SR" provoque le depot 
au sommet de la pile de l'adresse de 
retour. Dans la sous-routine SR. PLA 
transfere dans l'accumulateur l'octet 
qui se trouve au sommet de la pile, 
soit Fun des deux octets de l'adresse 
de retour. puis le RTS entrainera un 
branchement sur une "pseudo" 
adresse de retour composee de Tun 
des octets de l'adresse veritable et de 
la valeur empilee par PHA avant 
Fappel de la sous-routine. II y a peu 
de chances pour que cette "pseudo" 
adresse soit la meme que celle de 
l'instruction suivant "JSR SR" et, a 
moins que cela ne soit deliberement 
voulu. vous risquez quelques surpri- 
ses... 



Exemples d'application 

Nous vous proposons trois petits pro- 
grammes d'illustration. sans grand in- 
teret pratique il est vrai. mais qui of- 
frent tous Favantage de rendre 
visibles les resultats de leur execu- 
tion. 

Exemple 1 

Le programme Basic remplit l'ecran 
avec des caracteres quelconques 
avant d'appeler la routine en langage 
machine. Cette derniere attend une 
saisie au clavier de la forme 
" CI C2 RETURN" (par exemple : 
/A/T7) et remplace ensuite tous les 
caracteres CI affiches par des carac- 
teres C2 (par exemple tous les A par 
des T). 

Analysons done en detail le pro- 
gramme en assembleur. source de la 
routine machine, en rappelant tout 
d'abord que ORG est une "directive" 
de Fassembleur (ici LISA 1.5) don- 
nant l'adresse a partir de laquelle 
doit se faire F assemblage, tandis que 
EQU et EPZ sont deux directives 
permettant d'affecter une etiquette 
symbolique a une adresse (EPZ si 
l'adresse est en page zero et EQU 
dans le cas contraire). 

Ligne 2 : $FC22 est l'adresse de la 



routine du moniteur qui execute 
F equivalent du VTAB de I' Applesoft, 
en fonction de la valeur trouvee a 
l'adresse $25 (V), qui doit done 
contenir la position verticale du cur- 
seur souhaitee. 

Ligne 3 : $FDED est l'adresse de la 
routine qui fait executer le sous-pro- 
gramme de sortie de caracteres. 
Ligne 4 : $FD0C est l'adresse de la 
routine qui fait executer le sous-pro- 
gramme de saisie de caracteres. 
Ligne 5 : $FBC1 est l'adresse de la 
routine qui calcule Fadresse-base 
d'une ligne d'ecran dont le numero 
(0 a #$17) lui est donne dans l'accu- 
mulateur (voir article precedent). 
Ligne 6 : $FC9C est l'adresse de la 
routine qui efface une ligne a partir 
de la position du curseur jusqu'a la 
fin de la ligne (e'est la routine appe- 
lee par un CALL -868 en Besic). 
Ligne 7 : $28-$29 contient Fadresse- 
base de la ligne calculee par $FBC1. 
Ligne 8 : $24 est l'adresse dans la- 
quelle doit etre stockee la position 
horizontale du curseur. 
Ligne 10 : nous mettrons a l'adresse 
$6 le code-ecran du caractere a rem- 
placer. 

Ligne 11 : $7 contiendra pour sa 
part le code-ecran du caractere de 
remplacement. 

Lignes 12 a 14 : on deplace le cur- 
seur a la ligne numero $17 (equiva- 
lent a VTAB 24). 

Lignes 15 a 17 : on se place au 
debut de la ligne #$17 et on Fefface. 
Lignes 18 et 19 : on se repositionne 
au debut de la ligne. 
Ligne 20 : demande la frappe d'un 
caractere au clavier. Le code-ecran 
du caractere sera dans l'accumula- 
teur au retour de GET. 
Ligne 21 : #$AF est le code-ecran 
de "/". On veut done savoir si le ca- 
ractere tape est "/". 
Ligne 22 : si ce n est pas le cas. la 
demande est reiteree. 
Ligne 23 : le caractere est bien "/", 
on I'affiche a l'ecran. 
Ligne 24 : on en demande un autre. 
Ligne 25 : #$8D est le code-ecran 
de RETURN : notre caractere est-il 
un RETURN ? 



Lignes 26 et 27 : si oui. on saute a 
S2. sinon on I'affiche. 
Lignes 28 a 31 : on charge le registre 
X avec la position horizontale du cur- 
seur (H) et on le compare a la valeur 
2. Si X vaut 2. en effet, notre carac- 
tere doit etre celui qu'il faut rempla- 
cer (H vaut avant le premier GET. 
puis 1 apres le COUT de "/", puis 2 
apres le COUT du premier carac- 
tere). Dans ce cas, on saute a S10 
ou le caractere est stocke dans CI 
avant le retour a la demande de 
frappe au clavier. 

Lignes 31 et 32 : X est different de 
2. il s'agit done du caractere de rem- 
placement que Fon stocke dans C2 
avant retour a la saisie. 
Lignes 35 a 37 : pour que la syntaxe 
soit respectee. H doit etre a 5 lors de 
la frappe du RETURN (on a affiche 5 
caracteres aux positions a 4). Si tel 
n'est pas le cas. le RETURN est re- 
fuse. 

Lignes 38 a 39 : on va examiner le 
contenu de toutes les lignes d'ecran 
en commencant par la premiere (0). 
Ligne 40 : calcul de Fadresse-base 
d'une ligne. 

Ligne 41 : on commence a la pre- 
miere coionne de chaque ligne. 
Ligne 42 : on charge l'accumulateur 
avec le caractere situe dans la co- 
ionne Y de la ligne dont Fadresse- 
base est contenue dans ADB. 
Lignes 43 et 44 : on le compare a 
CI et. s'il lui est identique. on arrive 
a la ligne 45. On saute a S3 dans le 
cas contraire. 

Lignes 45 et 46 : on remplace CI 
par C2. 

Lignes 47 a 49 : Y=Y+1. La der- 
niere coionne porte le numero 
#$27 : si Y est different de #$28 on 
examine le caractere suivant dans la 
meme ligne. Si Y vaut #$28. la der- 
niere coionne a ete traitee et on 
passe a la ligne suivante. 
Ligne 50 : V=V+1. 
Lignes 51 a 54 : si V est different de 
#$18. il reste des lignes a examiner 
et on retourne en S5. Sinon, on re- 
vient au debut de la routine pour de- 
mander d'autres caracteres (on ne 
peut sortir que par RESET). 



Exemple 1 


: source 


assembleur 




0304 


2022FC 


14 




JSR 


VTAB 










0307 


A900 


15 




LDA 


#0 


0300 


l 




ORG 


S300 


0309 


8524 


16 




STA 


H 


0300 


2 


VTAB 


EQU 


SFC22 


030B 


209CFC 


17 




JSR 


CLR 


0300 


3 


COUT 


EQU 


SFDED 


030E 


A900 


18 




LDA 


#0 


0300 


4 


GET 


EQU 


SFDOC 


0310 


8524 


19 




STA 


H 


0300 


5 


BASCAL 


EQU 


SFBC1 


0312 


200CFD 


20 


SI 


JSR 


GET 


0300 


6 


CLR 


EQU 


SFC9C 


0315 


C9AF 


21 




CMP 


#SAF 


0300 


7 


ADB 


EPZ 


S28 


0317 


D0F9 


22 




BNE 


SI 


0300 


8 


H 


EPZ 


S24 


0319 


20EDFD 


23 




JSR 


COUT 


0300 


9 


V 


EPZ 


S25 


031C 


200CFD 


24 


Sll 


JSR 


GET 


0300 


10 


CI 


EPZ 


S6 


031F 


C98D 


25 




CMP 


#S8D 


0300 


11 


C2 


EPZ 


S7 


0321 


F013 


26 




BEQ 


S2 


0300 A917 


12 


SO 


LDA 


#S17 


0323 


20EDFD 


27 




JSR 


COUT 


0302 8525 


13 




STA 


V 


0326 


A624 


28 




LDX 


H 
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25 



0328 


E002 


29 




CPX 


#2 


032A 


F005 


30 




BEQ 


S10 


032C 


8507 


31 




STA 


C2 


032E 


4C1203 


32 




JMP 


SI 


0331 


8506 


33 


S10 


STA 


CI 


0333 


4C1203 


34 




JMP 


SI 


0336 


A624 


35 


S2 


LDX 


H 


0338 


E005 


36 




CPX 


#5 


033A 


D0E0 


37 




BNE 


SI 1 


033C 


A900 


38 




LDA 


#0 


033E 


8525 


39 




STA 


V 


0340 


20C1FB 


40 


S5 


JSR 


BASCAL 


0343 


A000 


41 




LDY 


#0 


0345 


B128 


42 


S4 


LDA 


( ADB) , Y 


0347 


C506 


43 




CMP 


CI 


0349 


D004 


44 




BNE 


S3 


034B 


A507 


45 




LDA 


C2 


034D 


9128 


46 




STA 


(ADB) , Y 


034F 


C8 


47 


S3 


INY 




0350 


C028 


48 




CPY 


#S28 


0352 


D0F1 


49 




BNE 


S4 


0354 


E625 


50 




INC 


V 


0356 


A525 


51 




LDA 


V 


0358 


C918 


52 




CMP 


#S18 


035A 


D0E4 


53 




BNE 


S5 


035C 


4C0003 


54 




JMP 


SO 
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0300- 


A9 


17 


85 


25 


20 


22 


FC 


A9 


0308- 


00 


85 


24 


20 


9C 


FC 


A9 


00 


0310- 


85 


24 


20 


OC 


FD 


C9 


AF 


DO 


0318- 


F9 


20 


ED 


FD 


20 


OC 


FD 


C9 


0320- 


8D 


FO 


13 


20 


ED 


FD 


A6 


24 


0328- 


EO 


02 


FO 


05 


85 


07 


4C 


12 


0330- 


03 


85 


06 


4C 


12 


03 


A6 


24 


0338- 


EO 


05 


DO 


EO 


A9 


00 


85 


25 


0340- 


20 


CI 


FB 


AO 


00 


Bl 


28 


C5 


0348- 


06 


DO 


04 


A5 


07 


91 


28 


C8 


0350- 


CO 


28 


DO 


Fl 


E6 


25 


A5 


25 


0358- 


C9 


18 


DO 


E4 


4C 


00 


03 





Exemple 1 : programme Basic 

5 TEXT 

10 DS = CHRS (4): PRINT DS"BLOAD 
INI2.0BJ": HOME : PRINT "LE T 
EXTE QUI SUIT N ' EST DESTINE Q 
U'A REMPLIR L'ECRAN POUR AVOI 
R DES CARACTERES"; 

20 PRINT "A MODIFIER POUR LA ROUT 

INE EN LANGAGE- MACHINE . . . " : PRINT 

30 FOR I = 1 TO 350 : CS = CHRS (3 

2 * INT ( RND (1) « 59)): PRINT 
CS" ••; : NEXT : CALL 768 



Exemple 2 

Le programme est tres court, mais 
plus '"ambitieux" que le precedent 
(mais oui !). II s'agit de modifier le 
sous-programme de sortie de carac- 
teres afin de rendre plus souple le 
melange de textes affiches en mode 
normal et en mode inverse (pour evi- 
ter justement l'usage repete des ins- 
tructions NORMAL et INVERSE). 

Les adresses $36 et $37 (54-55 en 
decimal) contiennent l'adresse du 
sous-programme de sortie de carac- 
teres utilise par le systeme. Au debut 
du programme Applesoft d'illustra- 
tion. nous y plaqons done l'adresse 
de notre routine ($300 soit octet bas 
= et octet haut = $3 = 3). Le 
CALL 1002 est utilise pour rendre ce 
changement effectif en le faisant 
prendre en compte par le DOS (voir 
a ce sujet les explications detaillees 
donnees par Olivier Herz dans le 
courrier des lecteurs du numero 11 
de Pom's). 

Le but a atteindre est de remplacer 
INVERSE par "Control-I" (que nous 
noterons CTRL-I) et NORMAL par 
CTRL-N. afin de pouvoir taper une 
instruction telle que : 
PRINT "CTRL-1CECI EST UNCTRL- 
N EXEMPLE" 



et de voir s'afficher CECI EST UN 
en inverse et EXEMPLE en normal 
(CTRL-I et CTRL-N seront bien sur 
"invisibles" dans 1' instruction affichee 
a l'ecran). 

Voyons maintenant comment la rou- 
tine y parvient. sachant que le carac- 
tere a "sortir" lui arrive contenu dans 
l'accumulateur. 

Lignes 2 et 3 : #$89 est le code- 
ecran de CTRL-I. Si le caractere 
n'est pas CTRL-I. on saute a SI. 
Lignes 4 a 6 : l'adresse $32 contient 
un "drapeau" qui indique au sys- 
teme quel mode d'affichage video 
utiliser. L'affichage est normal si $32 
contient #$FF. inverse pour #$3F et 
clignotant pour #$7F (en fait, la va- 
leur de $32 est utilisee pour modifier 
les codes-ecran en fonction de l'affi- 
chage souhaite). Apres avoir rencon- 
tre un CTRL-I, on met done l'affi- 
chage en mode inverse, et Ton sort 
de la routine sans rien afficher pour 
I' instant. 

Lignes 7 et 8 : #$8E est le code- 
ecran de CTRL-N. Si l'accumulateur 
ne contient pas CTRL-N. on saute a 
S2. 

Lignes 9 a 11 : apres avoir rencontre 
CTRL-N. on remet l'affichage en 
mode normal et Ton ressort de la 
routine. 



Exemple 2 


: source assembleur 




0308 


60 


6 










0309 


C98E 


7 










030B 


D005 


8 


0300 


l 


ORG 


S300 


030D 


A9FF 


9 


0300 C989 


2 


CMP 


#S89 


030F 


8532 


10 


0302 D005 


3 


BNE 


SI 


0311 


60 


11 


0304 A93F 


4 


LDA 


#S3F 


0312 


20F0FD 


12 


0306 8532 


5 


STA 


S32 


0315 


60 


13 



Lignes 12 et 13 : $FDF0 est l'adresse 
du sous-programme "standard" de 
sortie de caracteres. Vous aurez re- 
marque que Ton n'utilise pas cette 
fois $FDED comme dans le pro- 
gramme precedent. En effet. $FDED 
fait executer le sous-programme de 
sortie, par un JMP a l'adresse conte- 
nue dans $36-$37. En situation nor- 
male, cette adresse ramenerait a 
$FDF0 ($FDED etant alors pratique- 
ment equivalent a $FDF0). mais 
comme nous avons modifie le 
contenu de $36-$37. utiliser $FDED 
dans notre routine reviendrait finale- 
ment a "JMP $300", d'ou retour au 
debut de la routine et boucle infinie. 
Si l'accumulateur ne contient ni 
CTRL-I ni CTRL-N. on affiche done 
le caractere correspondant. sachant 
que cet affichage tiendra compte de 
la valeur contenue dans $32, puis on 
sort de la routine. 

Le retour a la routine standard de 
sortie de caracteres peut se faire par 
RESET. Par ailleurs. vous pourrez 
constater que si notre routine est ac- 
tive, le LIST d'un programme Apple- 
soft contenant des parties de texte in- 
cluses entre CTRL-1 et CTRL-N 
provoque egalement l'affichage de 
celles-ci en inverse dans les lignes de 
programme. 



RTS 

51 CMP #S8E 
BNE S2 
LDA #SFF 
STA S32 
RTS 

52 JSR SFDFO 
RTS 
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Exemple 2 : recapitulation 

0300- C9 89 DO 05 A9 3F 85 32 
0308- 60 C9 8E DO 05 A9 FF 85 
0310- 32 60 20 FO FD 60 

Exemple 2 : programme Basic 

10 PRINT CHRS (4VBL0AD INI3.0BJ 
": POKE 54,0: POKE 55,3: CALL 
1002 

20 HOME : PRINT " UE 



STION 1 : ";: INPUT ZS: PRINT 
2$: PRINT 
30 INPUT "QUESTION 2 : ";ZS: PRINT 

zs 

40 PRINT : INPUT "ENCORE UNE PETI 

TE QUESTION ? " ;2$ 
50 REM LES MESSAGES "QUESTION 1" 

, "QUESTION 2" ET "ENCORE UNE 
PETITE QUESTION ? " SONT ENC 

ADRES PAR DES CTRL-I ET CTRL- 

N 



Exemple 3 

Apres avoir modifie le sous-pro- 
gramme de sortie de caracteres. 
pourquoi ne pas essayer de faire de 
meme avec le sous-programme d' en- 
tree ? 

Cette fois. e'est aux adresses $38 et 
$39 (56 et 57 en decimal) qu'il faut 
stocker l'adresse de notre routine 
d' entree avant d'executer un CALL 
1002. 

La routine affichera en inverse sur la 
derniere ligne de l'ecran les caracte- 
res tapes, qui s'afficheront ensuite a 
la position du curseur dans les condi- 
tions habituelles. Si on tape RE- 
TURN ou si 40 caracteres ont ete af- 
fiches sur la derniere ligne. celle-ci 
s'efface et la sortie en inverse re- 
prend a la premiere colonne. 
Ce mode d'affichage double ne sera 
toutefois actif que lorsqu'on aura 
tape CTRL-A. et il le restera jusqu'a 
la frappe de CTRL-B ou RESET (re- 
tour a la routine standard dans ce 
dernier cas). 



Nous vous laissons le soin d'analyser 
le programme, au moyen des rensei- 
gnements deja donnes dans le cours 
de cet article et des ultimes precisions 
ci-apres. Bon courage ! 

• $FD1B est l'adresse du sous-pro- 
gramme standard de saisie de ca- 
racteres. Memes remarques pour 
$FD1B par rapport a $FD0C que 
pour $FDF0 par rapport a 
$FDED. 

• Les adresses $6. $7 et $8 nous 
serviront de variables de travail. 

• #$81 est le code-ecran de CTRL- 
A. 

• $FC58 est l'adresse de la routine 
HOME. 

• #$DD est le code-ecran du cro- 
chet fermant (]) et $400 est 
l'adresse de la premiere colonne 
de la premiere ligne de l'ecran. 

• #$A0 est le code-ecran de "es- 
pace". #$82 celui de CTRL-B et 
#$8D celui de RETURN. 

• On utilise la pile pour sauver la 
valeur contenue dans $24 (posi- 
tion horizontale du curseur) avant 



l'appel a $FC9C (lignes 32-33) et 
avant l'appel a $FDF0 (lignes 57- 
58) qui reclament ou entrainent 
une modification de cette valeur. 

• $21 (33 en decimal) contient la 
valeur de la largeur de l'ecran. On 
l'augmente avant "JSR $FDF0" 
(ligne 60) et on la reduit ensuite 
afin que 1'affichage de la derniere 
colonne de la derniere ligne ne 
provoque pas de "scroll" des 
autres lignes. 

• La sous-routine SOI. interne au 
programme, realise I'equivalent de 
VTAB 24 avec en sus effacement 
de la derniere ligne dans les cas 
suivants : affichage de 40 caracte- 
res. frappe de RETURN, frappe de 
CTRL-B. Elle retablit les valeurs 
des positions horizontale et verti- 
cale du curseur dans les lignes 
"normales" avant de rendre la 
main au programme principal. 

• Avant de sortir de la routine (ligne 
51 et ligne 68). on remet dans 
l'accumulateur le code-ecran du 
caractere saisi afin d'en permettre 
1'affichage par les voies normales. ■ 



Exemple 3 : source assembleur 
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SO 
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CMP 


#S81 


0305 


D014 
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BNE 


SI 


0307 


A001 
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LDY 


#1 


0309 


8406 
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STY 


S6 


030B 


2058FC 


7 




JSR 


SFC5? 


030E 


E624 


8 




INC 


S24 


0310 


A200 


9 




LDX 


#0 


0312 


A9DD 


10 




LDA 


#$DD 


0314 


8D0004 


11 




STA 


S400 


0317 


A9A0 


12 




LDA 


#SA0 


0319 


D0E5 


13 




BNE 


SO 


031B 


C982 


14 


SI 


CMP 


#S82 


031D 


D033 


15 




BNE 


S2 


031F 


AOOO 


16 




LDY 


#0 


0321 


8406 


17 




STY 


S6 


0323 


202D03 


18 




JSR 


SOI 


0326 


2022FC 


19 




JSR 


SFC22 


0329 


A9A0 


20 




LDA 


#SA0 


032B 


D0D3 


21 




BNE 


SO 


032D 


A525 


22 


SOI 


LDA 


S25 


032F 


8508 


23 




STA 


$8 


0331 


A917 


24 




LDA 


#$17 


0333 


8525 


25 




STA 


S25 


0335 


2022FC 


26 




JSR 


SFC22 
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0338 


A406 


27 




LDY 


$6 


033A 


F004 


28 




BEG 


S02 


033C 


A524 


29 




LDA 


S24 


033E 


DOOD 


30 




BNE 


S03 


0340 


A524 


31 


S02 


LDA 


s?24 


0342 


48 


32 




PHA 




0343 


A900 


33 




LDA 


#0 


0345 


8524 


34 




STA 


S24 


0347 


209CFC 


35 




JSR 


SFC9C 


034A 


68 


36 




PLA 




034B 


8524 


37 




STA 


S24 


034D 


A508 


38 


S03 


LDA 


S8 


034F 


8525 


39 




STA 


S25 


0351 


60 


40 




RTS 




0352 


A406 


41 


S2 


LDY 


S6 


0354 


DOOl 


42 




BNE 


S4 


0356 


60 


43 




RTS 




0357 


C98D 


44 


S4 


CMP 


#S8D 


0359 


DOOD 


45 




BNE 


S3 


035B 


C606 


46 




DEC 


S6 


035D 


202D03 


47 




JSR 


SOI 


0360 


E606 


48 




INC 


S6 


0362 


2022FC 


49 




JSR 


SFC22 


0365 


A98D 


50 




LDA 


#S8D 


0367 


60 


51 




RTS 




0368 


8507 


52 


S3 


STA 


S7 


036A 


202D03 


53 




JSR 


SOI 


036D 


A03F 


54 




LDY 


#S3F 



036F 


8432 


55 


STY 


S32 


0371 


A524 


56 


LDA 


S24 


0373 


48 


57 


PHA 




0374 


A507 


58 


LDA 


S7 


0376 


E621 


59 


INC 


$21 


0378 


20F0FD 


60 


JSR 


SFDFO 


O "7 H 

037B 


C621 


61 


DEC 


S21 


037D 


68 


62 


PLA 




037E 


8524 


63 


STA 


S24 


0380 


2022FC 


64 


JSR 


SFC22 


0383 


AOFF 


65 


LDY 


#SFF 


0385 


8432 


66 


STY 


S332 


0387 


A507 


67 


LDA 


$7 


0389 


60 


68 


RTS 





Exemple 3 : recapitulation 

0300- 20 IB FD C9 81 DO 14 AO 

0308- 01 84 06 20 58 FC E6 24 

0310- A2 00 A9 DD 8D 00 04 A9 

0318- AO DO E5 C9 82 DO 33 AO 



0320- 


00 


84 


06 


20 


2D 


03 


20 


22 


0328- 


FC 


A9 


AO 


DO 


D3 


A5 


25 


85 


0330- 


08 


A9 


17 


85 


25 


20 


22 


FC 


0338- 


A4 


06 


FO 


04 


A5 


24 


DO 


OD 


0340- 


A5 


24 


48 


A9 


00 


85 


24 


20 


0348- 


9C 


FC 


68 


85 


24 


A5 


08 


85 


0350- 


25 


60 


A4 


06 


DO 


01 


60 


C9 


0358- 


8D 


DO 


OD 


C6 


06 


20 


2D 


03 


0360- 


E6 


06 


20 


22 


FC 


A9 


8D 


60 


0368- 


85 


07 


20 


2D 


03 


AO 


3F 


84 


0370- 


32 


A5 


24 


48 


A5 


07 


E6 


21 


0378- 


20 


FO 


FD 


C6 


21 


68 


85 


24 


0380- 


20 


22 


FC 


AO 


FF 


84 


32 


A5 


0388- 


07 


60 















Exemple 3 : programme Basic 

10 PRINT CHRS (4)"BL0AD INI4.0BJ 
": POKE 56,0: POKE 57,3: CALL 
1002: POKE 6,0: TEXT : HOME : 
POKE 35,22 



Patch du DOS 3.3 



Bien qu'il ait conserve le meme nom 
depuis !e 25 aout 1980, le DOS 3.3 
a connu un certain nombre de modi- 
fications. En particulier, 1'apparition 
de 1' Apple He en janvier 1983 a pro- 
voque la modification du DOS (pour 
qu'il supporte la carte 80 colonnes) 
et une tentative (initialement infruc- 
tueuse) de remedier au bug de 1' AP- 
PEND (voir "Reparez votre AP- 
PEND" et "Les drames de 
1' APPEND" dans les Pom's 1 et 2); 
depuis novembre 1983, les disquet- 
tes MASTER fournies par Apple 
contiennent une version enfin corri- 
gee de ce bug. 

Je vous propose de modifier votre 
DOS de maniere a le rendre plus 
agreable d' utilisation a l'aide d'un 
programme qui incorpore 6 patches : 

• la commande TDUMP, deja parue 
dans le Pom's 10 page 71, rem- 
place CHAIN (syntaxe : TDUMP 
fichier [,S slot] [,D drive] [,V vo- 
lume]); POKE 48361.3 permet de 



visualiser les fichiers a acces direct; 
POKE 48361,18 retablit l'etat nor- 
mal; 

• correction du bug du catalogue (la 
longueur d'un fichier est indiquee 
modulo 255); 

• mise a jour du DOS pour la ver- 
sion lie, y compris la rectification 
de 1" APPEND; 

• un patch permettant de sortir avec 
CTRL-Q du catalogue pendant la 
pause; 

• un patch pour afficher le nombre 
de secteurs libres apres 1' indication 
du volume; 

• un dernier patch qui place le cur- 
seur sur la commande en cas 
d'instruction erronee au DOS. 

Assurez-vous que votre DOS est 
standard avant d'executer ce pro- 



Yvan Koenig 

gramme, car il utilise certaines zones 
libres de la memoire, tres connues et 
eventueliement deja employees. En 
cas de doute, bootez d'abord sur 
votre disquette MASTER. 

Attention ! Ces modifications sont in- 
compatibles avec la plupart des pro- 
grammes qui deplacent le DOS sur la 
carte langage. 

Ces modifications n'annulent pas la 
commande INIT; il est done possible 
d' initialiser des disquettes qui les 
contiendront en permanence. Dans 
ce cas, il est preferable de marquer 
sur I'etiquette qu'il s'agit d'un DOS 
3.3 "patche", sinon vous pourriez ne 
pas comprendre pourquoi certains 
programmes (qui utiliseraient les 
memes adresses) ne marchent plus. 



1 REM KOENIG 22/2/84 

10 FLASH : PRINT "PATCH EN COURS" : NORMAL 

99 REM TDUMP FILE, S6, Dl , VO 

100 HEXS = "A893:54 44 55 4D DO N9D26:DE BC N BC 

DF:20 8E FD 20 A3 A2 20 8C A6 FO 12 20 ED 
FD AD CO 10 F3 8D 10 CO 20 IB FD C9 91 
DO E9 20 FC A2 60": GOSUB 300: CALL - 1 

44 

119 REM CATALOG > 255 SECTORS 

120 HEXS = "AE42:A0 2 A9 BO 48 A5 44 D9 A4 B3 A5 

45 E9 90 10 85 45 A5 44 F9 A4 B3 85 44 
68 18 69 1 48 DO E5 68 
20 ED FD CA DO": GOSUB 300: 

129 REM MISE A JOUR HE 

130 HEXS = "B33E.-18 AD BF B5 8D EC B5 6D E6 B5 8 
D E6 B5 AD CO B5 8D ED B5 6D E4 B5 8D E4 



NADAF : C BD AE B3 
CALL - 144 



139 



B5 90 3 EE E5 B5 
- 144 
REM BUG BIG APPEND 



60 0": GOSUB 300: CALL 



140 HEXS = "BA69:AE 5F AA EO 1C FO 5 A2 8E 5D 
B6 60 A9 FF 8D FB 4 8D C CO 8D E CO 4C 2F 
FB AD BD B5 8D E6 B5 8D EA B5 BA 8E 9B B 



150 



179 
180 



189 
190 



209 
210 



299 
300 



3 4C 7F B3 0": GOSUB 300: CALL - 144 
HEXS = "A6BB:20 69 BA NB684:84 BA NB6AA : BB N 
BFD6:20 76 BA 4C 44 B7 NB9FD : NB652: 
5": GOSUB 300: CALL - 144 
REM CTRL-Q.-SORTIE CATALOGUE 
HEXS = "AE2F:20 8E FD CE 9D B3 DO A 20 8D B7 
FO FO NB78D:20 C FD C9 91 60": GOSUB 300 
: CALL - 144 
REM SECTEURS LIBRES 
HEXS = "B6B3:20 48 F9 86 44 86 45 AO C8 18 B 
9 F2 B3 FO E A 90 FB 48 E6 44 DO 2 E6 45 
68 18 90 FO 88 DO E9 20 42 AE 4C 2F AE NA 
DC4:B3 B6": GOSUB 300: CALL - 144 
REM CURSEUR SUR ERREUR 
HEXS = "A6FF:4C D9 B6 NB6D9:C6 25 C6 25 C6 2 
5 C6 25 20 22 FC 6C 5E 9D" : GOSUB 300: CA 
LL - 144 
END 

HEXS = HEXS ♦ " N D7D2G" : FOR I = 1 TO LEN 
(HEXS): POKE 511 * I, ASC < MIDS (HEXS, I, 
1)) » 128: NEXT : POKE 72,0: RETURN 



Pom's rf 12 



Des tableaux de dimension variable 

Gerard Michel 



Vous avez sans doute deja constate 
que l'Applesoft (comme la plupart 
des BASICs d'ailleurs) est particulie- 
rement strict avec le dimensionne- 
ment des tableaux. Une instruction 
"DIM A$(20)". par exemple. ne peut 
etre suivie d'une instruction "DIM 
A$(30)" sans que cela provoque 
remission d'un message d'erreur. 

Cette excessive rigueur ne va pas 
sans quelques inconvenients pour le 
programmeur : 

• Si un tableau doit comporter X 
variables "volatiles". ne servant 
que pour une petite partie du pro- 
gramme, et que Ton a besoin en- 
suite d un tableau de meme type 
mais de dimension Y. il faut soit 
definir deux tableaux, soit en di- 
mensionner un seul a la plus 
grande des deux valeurs X et Y. 
mais toujours sans espoir de recu- 
perer la place occupee par les ta- 
bleaux, meme s'ils deviennent inu- 
tiles. 

• Si l'on doit sauvegarder provisoi- 
rement un tableau A dans un ta- 
bleau B. puis recharger ensuite les 
valeurs initiales dans A. la place 
occupee par B reste perdue. 

• Un tableau dont le nombre d'ele- 
ments evolue par nature (table de 
reference d'enregistrements sur 
disquette par exemple) doit etre 
defini avec la plus grande dimen- 
sion prevue. meme si elle n'est ef- 
fectivement jamais atteinte, ou 
seulement a Tissue de plusieurs 
mois de fonctionnement du pro- 
gramme. La encore, la place per- 
due peut etre considerable, et Ton 
pourrait evoquer d'autres proble- 
mes... 

La routine presentee ici vise a re- 
duire le nombre de ces inconve- 
nients. Elle s'appelle au moyen de 
Fampersand (&) et autorise deux 
types de manipulation : 

• Suppression pure et simple d'un 
tableau, pour en recuperer la 
place-memoire et permettre un re- 
dimensionnement eventuel. sans 
affecter les autres tableaux ou va- 
riables. 

• Pour les tableaux a une seule di- 
mension, possibilite d'incrementer 
la DIM de 1 lorsque Ton veut ra- 
jouter un element (et ce autant de 
fois que necessaire). et possibilite 
de la decrementer d'autant lors- 
qu'on en supprime un. 



1 

2 


* 








3 


* 


MODIFICATION 


DE LA DIM DES 


4 


* 




TABLEAUX 


5 


* 








6 


» 


CODE = DIM 


.VAR.OBJ 


7 


• 








8 


H 


ASSEMBLEUR 


: LISA 1.5 « 


9 


» 






* 


10 










11 




ORG 


S927C 




12 




OBJ 


S800 




13 LI 


EPZ 


S6 




14 L2 


EP2 


$7 




15 Nl 


EPZ 


S8 




16 N2 


EPZ 


S9 




17 TAB2 


EPZ 


S18 




18 VP 


EPZ 


S1A 




19 




EPZ 


S1E 




20 




LDY 


S6B 


; INITIALISE TAB2 A L'ADRESSE DE 


21 




STY 


TAB2 


; DEBUT DE LA ZONE DES TABLEAUX 


22 




LDY 


S6C 




23 




STY 


TAB2-1 




24 




LDY 


#5 


; NOMBRE MAXIMUM D' OCTETS POUR 


25 




STY 


Nl 


;UN ELEMENT D'UN TABLEAU (REEL) 


26 




LDX 


#0 




27 




STX 


L2 




28 




STX 


SIB 




29 




STX 


SIC 




30 




STX 


SID 




31 




STX 


N2 




32 




BEQ 


SOO 


;0N A DEJA LE CARAC. QUI SUIT & 


33 


DEB 


JSR 


SB1 


^•ACQUISITION CARAC. SUIVANT DU PROGRAMME 


34 




BNE 


SO 




35 




INC 


SIB 


; DRAPEAU "FIN D' INSTRUCTION" 


36 




BNE 


SI 




37 


SO 


CMP 


#'S' 


; TABLEAU ALPHANUMERIQUE ? 


38 




BEG 


S2 




39 




CMP 


#'*' 


; TABLEAU ENTIER ? 


40 




BEQ 


S3 




41 




CMP 


#SC8 


; ? 


42 




BEO 


R2 




43 




CMP 


#SC9 


; "-" ? 


44 




BEO 


Rl 




45 


SOO 


STA 


L1,X 


; 1ERE LETTRE DU NOM DU TABLEAU EN LI 


46 




INX 




; ET 2EME EVENTUELLE EN L2 


47 




BNE 


DEB 




48 


S2 


INC 


SID 


; DRAPEAU "NOMBRE D' OCTETS PAR ELEMENT" 


49 




LDA 


L2 




50 




ORA 


#S80 


;L2=L2*S80 


51 




STA 


L2 




52 


RO 


LDY 


#1 


;A-T-0N UN * OU UN "-" DERRIERE 


53 




LDA 


(SB8) , Y 


; LE CARACTERE QUE L'ON VIENT 


54 




JSR 


SBA 


; DE LIRE ? 


55 




BEO 


SI 


;NON (FIN D ' INSTRUCTION ) 


56 




JSR 


SB1 


;0UI -> M.A.J. POINTEUR DE PROGRAMME 


57 




CMP 


#SC8 


;" + " ? 


58 




BNE 


Rl 




59 


R2 


JMP 


R3 




60 


Rl 


INC 


SIC 


; DRAPEAU "♦" OU "-" 


61 




JMP 


R3 




62 


SI 


JSR 


S10 


;SP RECHERCHE DANS ZONE DES TABLEAUX 


63 




JMP 


S50 




64 


S3 


INC 


SID 




65 




LDA 


LI 




66 




ORA 


#S80 


;L1=L1*S80 


67 




STA 


LI 




68 




JMP 


S2 




69 


S10 


LDY 


#0 




70 




LDA 


(TAB2) , Y 





Pom's n" 12 



29 



Structure d'un 
en memoire 



tableau 



Le pointeur de debut de la zone des 
tableaux est donne par les adresses 
$6B-$6C, le pointeur de fin par $6D- 
$6E. 

Quel que soit le type du tableau 
fchaine de caracteres, reel ou entier). 
sa representation en memoire debute 
toujours par les informations suivan- 
tes : 

• Deux octets correspondent aux 
deux lettres du nom du tableau 
(meme si ce dernier n'en compte 
qu'une. deux octets sont utilises). 

• Le nombre total d' octets occupes 
par le tableau, dans l'ordre poids 
faible poids fort. 

• Le nombre de dimensions. 

• Pour chacune des dimensions, le 
nombre de ses elements, dans 
l'ordre poids fort / poids faible. 

Chaque element occupe ensuite 2 
octets s'il s'agit d'un tableau d'en- 
tiers. 3 s'il s'agit d'alphanumeriques 
et 5 si ce sont des reels. 

Les lettres definissant le nom du ta- 
bleau permettent au systeme d'en re- 
connaitre le type, et de distinguer par 
ailleurs A$ de A ou de A%. Par rap- 
port au code ASCII, memorise dans 
le programme, les noms memorises 
dans la zone des tableaux presentent 
les caracteristiques suivantes : 

• Tableau "entier" : le code de cha- 
cune des deux lettres est aug- 
ments de $80 (s'il n'y a qu'une 
lettre. le deuxieme octet contient 
done $80). "A%" serait code "CI 
80" et "BB%" donnerait "C2 C2" 

• Tableau "alphanumerique" : seul 
le code de la seconde lettre est 
augmente de $80. "A$" serait 
code "41 80" et "BB$" donnerait 
"42 C2". 

• Tableau "reel" : les codes ne sont 
pas modifies. "A" serait code "41 
00" et "BB" serait code "42 42". 

La routine cherchera done dans la 
zone des tableaux celui dont le nom 
lui est indique apres "&". 
S'il s'agit seulement de le supprimer. 
elle deplacera vers le bas tout ce qui 
suit la fin du tableau, e'est-a-dire les 
autres tableaux s'il y en a. du nom- 
bre d'octets occupes par le tableau 
concerne. qui lui meme sera ainsi 
"ecrase". Ceci revient a effectuer un 
"MOVE" avec pour point d'arrivee 
l adresse du tableau et pour point de 
depart I'adresse du tableau suivant. 
Les donnees du tableau sont evi- 
demment perdues. 

Pour incrementer ou decrementer la 
dimension, la routine effectuera un 
"MOVE" vers le haut ou vers le bas. 
d'un nombre d'octets correspondant 
au type du tableau (2, 3 ou 5) et 
mettra a jour le nombre d'octets oc- 



71 




CMP 


LI 






72 




BNE 


S4 






73 




INY 






; 1ERE LETTRE TROUVEE 


74 




LDA 


(TAB2) 


,Y 




75 




CMP 


L2 






76 




BEO 


S5 




; 2EME LETTRE TROUVEE 


77 


S4 


JSR 


S40 




;SP -> ADRESSE DU TABLEAU SUIVANT 


78 




STA 


TAB2-1 






79 




LDA 


VP 






80 




STA 


TAB2 






81 




JMP 


S10 




;0N CONTINUE LA RECHERCHE 


82 


S40 


LDY 


#2 






83 




LDA 


<TAB2> 


,Y 


;0N AJOUTE A TAB2 LE NOMBRE 


84 




CLC 






; D'OCTETS OCCUPES PAR LE TABLEAU, CE 


85 




ADC 


TAB2 




; DONNE L' ADRESSE DU TABLEAU SUIVANT 


86 




STA 


VP 






87 




INY 








88 




LDA 


(TAB2) 


,Y 




89 




ADC 


TAB2-1 






90 




STA 


VP2 






91 


S5 


RTS 








92 


550 


LDA 


TAB2 




; DESTINATION DU "MOVE" 


93 




STA 


S42 






94 




LDA 


TAB2-1 






95 




STA 


S43 






96 




INY 








97 




LDA 


<TAB2) 


,Y 




98 




STA 


Nl 




;N1/N2 -> NBRE OCTETS SUPPRIMES 


99 




INY 








100 




LDA 


<TAB2> 


,Y 




101 




STA 


N2 






102 




JSR 


S40 






103 




LDA 


VP 




; DEBUT DE LA ZONE A DEPLACER 


104 




STA 


S3C 






105 




LDA 


VP2 






106 




STA 


S3D 






107 


FIN1 LDA 


S6D 




;FIN DE LA ZONE A DEPLACER 


108 




STA 


S3E 






109 




LDA 


S6E 






110 




STA 


S3F 






111 




LDY 


#0 






112 




JSR 


SFE2C 




;M0VE 


113 




LDA 


S6D 




;M.A.J. POINTEUR "FIN ZONE TABLEAUX" 


114 




SEC 








115 




SBC 


Nl 






116 




STA 


S6D 






117 




LDA 


S6E 






118 




SBC 


N2 






119 




STA 


S6E 






120 




LDX 


SIB 






121 




BNE 


FIN 




;0N EST DEJA EN FIN D' INSTRUCTION 


122 


FIN0 JSR 


SB1 




;MISE EN FIN D' INSTRUCTION 


123 


FIN 


RTS 








124 


R3 


JSR 


S10 






125 




LDY 


#4 






126 




LDA 


<TAB2> 


Y 


;EST-CE BIEN UN TABLEAU A 1 DIM. 


127 




CMP 


#1 






128 




BNE 


FINO 






129 




JSR 


S40 






130 




LDA 


SID 






131 




BED 


R4 




;C'EST UN TABLEAU DE REELS 


132 




DEC 


Nl 




;CALCUL NOMBRE OCTETS PAR ELEMENT 


133 




LDA 


Nl 






134 




SEC 








135 




SBC 


SID 






136 




STA 


Nl 






137 


R4 


LDA 


SIC 






138 




BEQ 


R5 




;C'EST UN "♦" 


139 


R40 


LDY 


#6 




;M.A.J. NOMBRE D' ELEMENTS 


140 




LDA 


(TAB2) 


Y 


;QUI DIMINUE DE 1 


141 




SEC 








142 




SBC 


#1 






143 




STA 


(TAB2) , 


Y 




144 




DEY 








145 




LDA 


(TAB2) , 


Y 




146 




SBC 


#0 






147 




STA 


(TAB2) , 


Y 




148 




LDY 


#2 




; M.A.J. NOMBRE OCTETS DU TABLEAU 


149 




LDA 


( TAB2 ) , 


Y 


;QUI DIMINUE DE Nl 


150 




SEC 








151 




SBC 


Nl 






152 




STA 


(TAB2) , 


Y 





cupes ainsi que le nombre d' ele- 
ments dans la dimension. 

Mode d'utilisation 

Suppression 

La syntaxe generale est "& Nom du 
tableau", par exemple : &Q%. 
&RR$, &TG... Si le nom comporte 
plus de deux lettres. il ne faut mettre 
derriere "&" que les deux premieres 
et le type (&TA% pour TABLEAUX 
par exemple). 

On peut utiliser des instructions du 
type: 

10 DIM A$(10,2), BB(25) : CY%(0) 
= 2 

20 &A$ : &BB : &CY% 

30 DIM A$(55). CY%(10.20) ... 

11 est indispensable que le tableau ait 
ete effectivement cree avant sa sup- 
pression, soit par une instruction 
DIM. soit par I'affectation d'une va- 
leur a un element d'indice inferieur a 

10 (dimension par defaut). Sinon, le 
systeme s'embarque pour un voyage 
sans retour ! 

Modification de la dimension 

La syntaxe est "& Nom du tableau 
+" pour ajouter un element 
(&AA$ + . &CT%+ ...) et '"& Nom 
du tableau — " pour en enlever un 
(&S$-. &W- ...). 
Comme precedemment. le tableau 
doit effectivement avoir ete cree. 
d une facon ou d*une autre, mais il 
doit en sus ne comporter qu'une 
seule dimension pour que la routine 
produise les resultats esperes. 

11 est possible de reduire la dimen- 
sion jusqu'a ce qu'il n'y ait plus 
aucun element dans le tableau, mais 
les 7 octets de definition (lettres...) 
seront toujours la. Ainsi. la ligne sui- 
vante provoquerait une erreur : 

10 DIM A(5) : FOR 1=5 TO STEP 
-1 : &A- : NEXT: DIM A(20) 

11 suffit d'inserer "&A" entre le NEXT 
et la nouvelle instruction DIM pour 
que tout se passe bien. 

II est en revanche parfaitement possi- 
ble d'ecrire : 

10 DIM A(5) : FOR 1=5 TO STEP 
-1 : &A- : NEXT : FOR 1=0 TO 5 : 
&A+ : A(I) = I : NEXT 

Le programme de demonstration liste 
ci-apres presente de nombreux 
exemples d'application. _ 
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; NOUVELLE ADRE55E DU TABLEAU SUIVANT 
: DESTINATION DU MOVE 



; DEBUT DE ZONE A DEPLACER (ANCIENNE 
: ADRESSE DU TABLEAU SUIVANT) 



; NBRE ELEMENTS AUGMENTE DE 1 



; NBRE OCTETS AUGMENTE DE Nl 



: ANCIENNE FIN ZONE DES TABLEAUX 
; NOUVELLE FIN ZONE DES TABLEAUX 

; ANCIENNE FIN 



; NOUVELLE FIN 



:"MOVE" VERS LE HAUT 



VP/VP2 -> ANCIENNE ADRESSE DEBUT 
DU TABLEAU SUIVANT GUI MARQUE LA 
FIN DE LA ZONE A DEPLACER 



Programme DIM.VAR.OBJ 

927C- A4 6B 84 18 

9280- A4 6C 84 19 AO 05 84 08 

9288- A2 00 86 07 86 IB 86 1C 

9290- 86 ID 86 09 FO 19 20 Bl 



9298- 00 DO 04 E6 IB DO 35 C9 

92A0- 24 FO 11 C9 25 FO 33 C9 

92A8- C8 FO 21 C9 C9 FO 20 95 

92B0- 06 E8 DO E2 E6 ID A5 07 

92B8- 09 80 85 07 AO 01 Bl B8 

92C0- 20 BA 00 FO OF 20 Bl 00 
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1 REM DEMO DIM VARIABLE 

2 REM ================= 

5 HIMEM: 37499 

10 PRINT CHRS (4)"BL0AD DIM.VAR. 
OBJ": POKE 1013,76: POKE 1014 
,7 » 16 + 12: POKE 1015,9 » 1 
6*2 

20 DIM B<5) ,TS(1) ,CCX<2,3> ,TTS(10 

) 

30 FOR I = TO 5:B(I) = 1000 « I 
: NEXT : FOR I = TO 2: FOR 
J = TO 3:CC*CI,J) = I « J: NEXT 
: NEXT : FOR I = TO 10:TTSC 
I) = "TABLEAU TTS " + STRS ( 
I): NEXT 

40 TSC0) = "PRE-CREE 0":T$(1) = "P 
RE-CREE 1": FOR I = 2 TO 20: S, 
T$ ♦ :TS(I) = "CREE NO " + STRS 
(I): PRINT FRE (0): NEXT : FOR 
I = TO 20: PRINT TS(I>: NEXT 

50 GET ZS: PRINT : FOR I = 20 TO 

6 STEP - l: & TS - : PRINT FRE 
(0): NEXT : FOR I = TO 5: PRINT 
TS(I): NEXT 

60 GET ZS: PRINT : PRINT : & B: DIM 
AAS(0) ,B(0) 

70 INPUT "1ER ELEMENT ";AAS(0) 

80 INPUT "UN AUTRE : ";Z$: IF ZS = 
"N" THEN 200 

90 z = z + i: s. aas + : print "ELE 



MENT NO "Z" ";: INPUT AAS(Z) : 
GOTO 80 

200 PRINT : PRINT : FOR I = TO 
Z: PRINT AAS(I): NEXT : GET Z 
s: PRINT : PRINT 

210 S. CC*: DIM CC*(0) 

220 FOR I = 1 TO 20: S, B ♦ :B(I) = 

2 » I: a ccx * :cc«(i) = 10 » 

I: NEXT : FOR I = TO 20: PRINT 
BCD ,CCX(I) : NEXT : GET ZS: PRINT 
: PRINT 

230 & TTS: FOR I = TO 4:TTS(I) = 

"N0UVEAU TTS " ♦ STRS (I): NEXT 

240 FOR I = 20 TO 10 STEP - 1: a 

B - : a ccx - : NEXT : FOR I = 

TO 9: PRINT B<I),CCX(I>: NEXT 

250 a AAS: DIM AAS(0) 

260 FOR I = 1 TO 450: & AAS ♦ :AA 
S(I) = "AAAAAAAAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
AAAAAAAAAAAAAS " + STRS (I): 
PRINT AAS ( I ) " ";: PRINT FRE 
(0) : PRINT : NEXT 

270 FOR I = 450 TO 1 STEP - 1: a 
AAS - : PRINT FRE (0) : NEXT 
: PRINT : FOR I = TO 9: PRINT 
B(I),CCX(I>: NEXT 

280 FOR I = TO 4: PRINT TTS(I): 
NEXT 
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& ONERR GOTO 

Dimitri Auer 



Faisant suite a 1' article de Guy Ma- 
thieu. relatif a l'ergonomie des pro- 
grammes, paru dans Pom's 6. voici 
une routine en langage machine qui 
viendra en aide aux programmeurs 
soucieux de creer des logiciels ami- 
caux. J'attaque ici un probleme qui 
n'a guere ete souleve dans 1' article 
precite : le traitement des erreurs. 
Le premier type d'erreur, le fameux 
"bug" qui ne surviendra qu'apres 
quelques mois d* utilisation du pro- 
gramme, sera facilement elimine 
grace au programme d' analyse syn- 
taxique d'Olivier Herz (cf. Pom's 6). 
Par contre. il est difficile de prendre 
en compte, et surtout de prevoir, les 
erreurs de manipulation eventuelles 
de la part de l'utilisateur. Je ne 
connais rien de plus desagreable que 
de voir un programme stopper son 
execution en plein travail par un "I/O 
ERROR", un "DISK FULL" ou que 
sais-je encore... 

C'est pour eviter ce genre de desa- 
grements que l'Applesoft met a votre 
disposition l'instruction "ONERR 
GOTO", qui permet de "pieger" 
toutes les erreurs du DOS, celles du 
BASIC, et meme la frappe au clavier 
du fameux CTRL-C. Mais le 
"ONERR GOTO" souffre de deux 
defauts majeurs : 

• il n'empeche pas l'arret du pro- 
gramme par un RESET volontaire 
ou accidentel: 

• si un trop grand nombre d' erreurs 
successives est traite. le desordre 
qui apparait au niveau du poin- 
teur de pile provoque un blocage 
du systeme (voir page 136 du ma- 
nuel Applesoft). 

Pour ces raisons, il m'a semble utile 
de creer une routine de "ONERR 
GOTO" etendu, traitant ces deux 
problemes. 

Principes generaux 

L'Apple dispose d'une routine de 
RESET appelee par 1' intermediate 
d'un vecteur , baptise SOFTEV. situe 
en page 3 aux adresses $3F2 et 
$3F3 (1010-1011). En modifiant le 
contenu de ces deux adresses, on 
peut envoyer le RESET a n'importe 
quelle adresse au sein de la memoire 
de l'ordinateur.- Pour signifier a 1' Ap- 
ple de ne pas effectuer un "depart a 
froid", il faut en outre stacker le re- 
sultat du "ou exclusif" entre le 
contenu de $3F3 et la valeur $A5 en 
$3F4. ce que la routine du moniteur 
SETPWRC ($FB6F) fera pour nous. 
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; APPLE TOOL KIT EDITOR ASSEMBLER 

********************************** 

* * 

* & ONERR GOTO * 

* * 

* TRAITEMENT D'ERREUR APPLESOFT » 

* AVEC EXTENSION AU 'RESET' * 

* * 

* COPYRIGHT 1983 * 

* DIMITRI AUER * 

* * 

* * 
********************************** 

EFFECTUE LES MEMES OPERATIONS QUE 
LE CLASSIQUE ONERR GOTO DE L'APPLESOFT 
MAIS S'APPLIQUE AUSSI A L ' ENFONCEMENT 
DE LA TOUCHE 'RESET'. 

SYNTAXE: & ONERR GOTO <NUM. LIGNE) 



ORG *300 
CONSTANTES 



ONERR ECU *A5 
GOTO EQU *AB 

RESTORE EQU *AE 

VARIABLES 



EXTLOC EQU *3F5 

TXTPTR EQU *B8 

CURLIN EQU *75 

ERRPTR EQU *F4 

ERRFLAG EQU *D8 

SOFTEV EQU *3F2 

ERRSTK EQU »DF 



AVANT L'APPARITION DE L'ERREUR. 



ROUTINES EXTERNES 



; TOKEN DE ONERR 
: TOKEN DE GOTO 



ADRESSE VERS LAQUELLE POINTE L'APPEL 
POINTEUR DANS LA LIGNE COURANTE APPL 
NUMERO DE LA LIGNE EN EXECUTION 
POINTEURS ONERR 
FLAG D'ACTIVITE DE ONERR 
VECTEUR DU RESET 
,■ VALEUR DU POINTEUR DE PILE 



CHRGET EQU *00B1 

SNERR EQU *DEC9 

SETPWRC EQU *FB6F 

DATA EQU *D995 



CAPTE LE CARACTERE SUIVANT DANS LA L 
AFFICHE 'SYNTAX ERROR' 
REAJUSTAGE DES VECTEURS DE RESET 
DEPLACE TXTPTR EN FIN D' I NSTRUCTI ON 



MISE EN PLACE DES VECTEURS & 



LDA 
STA 
LDA 
STA 
LDA 
STA 
RTS 



»*4C 
EXTLOC 
«> START 
EXTLOC+l 
»< START 
EXTLOC+2 



JUMP 



PROGRAMME PRINCIPAL APPELE 

PAR CHAQUE EMPLOI DE L' AMPERSAND & 



START 



CMP 
BEQ 
CMP 
BN E 
BEQ 



ttONERR 

TEST2 

•(RESTORE 

ERR 

STACK 



i TOKEN ONERR ? 

j DEUXIEME POSSIBILITE ? 

; SI NON ERREUR 

; TRAITE & RESTORE 



L'astuce utilisee ici consiste a revec- 
toriser le RESET vers la routine de 
traitement du "SYNTAX ERROR". 
Chaque RESET sera alors interprets 
comme une erreur de syntaxe et 
pourra etre capte aisement par 
ONERR GOTO. 

Le programme 

II est evident que cela pourrait etre 
effectue directement a partir du pro- 
gramme Applesoft par une serie de 
POKEs et un CALL. Mais comme il 
sera bon. de toutes fagons. d'utiliser 
la routine d'erreur preconisee par le 
manuel Applesoft, autant inclure le 
tout dans un petit utilitaire. 
Pour conserver la souplesse du 
BASIC, nous utiliserons l'ampersand 
(&) pour appeler la routine en lan- 
gage machine. 

La premiere partie de cette routine 
met en place les vecteurs necessaires 
a & en $3F5-$3F6 (lignes 58 a 64). 
A chaque appel de &. on passera 
ensuite directement a la seconde par- 
tie (ligne 67). 

Descriptif du programme 
principal 

• Lignes 67-77 : teste la syntaxe de 
1' appel soit & ONERR GOTO, soit 
& RESTORE. Si ONERR GOTO, 
branchement a OK. Si RESTORE, 
saut a la deuxieme partie (traite- 
ment de pile). En cas d'echec des 
deux comparaisons. saut a la rou- 
tine qui affichera un "SYNTAX 
ERROR" et stoppera le pro- 
gramme. 

• Lignes 81-99 : activation de 
ONERR GOTO et mise en place 
des nouveaux vecteurs de RESET. 
Sortie via la routine DATA qui 
place le pointeur de ligne Apple- 
soft en fin d'instruction (recherche 
un ":"' ou un "0" de fin de ligne). 

• Lignes 111-119: reajuste le poin- 
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; RESET 
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STA 


SOFTEV+1 
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SETPWRC 
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JMP 


DATA 


; FIN 
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1 1 1 
1 1 2 
1 1 3 
1 1 4 
1 15 
1 1 6 
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DEUXIEME PARTIE: & RESTORE 
REAJUSTE LE POINTEUR DE PILE 
AFIN D'EvITER LE ' PLANTA6E ' 
DU SYSTEME PAR SUITE D'ERREURS 
REPETEES. 

A UTILISER DANS LA SECTION DE TRAITEMENT 
DE L ' ERREUR PAR UN & RESTORE 



STACK 



PLA 
TAY 
PLA 

LDX ERRSTK 

TXS 

PHA 

TYA 

PHA 

JMP DATA 



; SAUVEGARDE 

! DES REGISTRES 

; REA JUSTAC-E; OU POINTEUR 

; DE PILE 

; REGENERATION 

; DE:, 

; REGISTRES 

;FIN ET RETOUR AU BASIC 



teur de pile a la valeur precedant 
1 apparition de l'erreur (voir ma- 
nuel Applesoft). Cette section est 
appelee par & RESTORE 

Remarque : les utilisateurs de dis- 
quettes auront a inclure un CALL 
1002 au sein de leur routine de trai- 



tement d'erreur afin de reconnecter 
le DOS apres un eventuel RESET. 

Le petit programme de demonstra- 
tion lists ci-apres met en evidence le 
mode d'utilisation de cette routine. 
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0338- 


80 


85 


D8 


A9 


C? 


8D 


F2 


03 


0340- 


A? 


DE 


8D 


F3 


03 


20 


6F 


FB 


0348- 


4C 


95 


D? 


68 


A8 


68 


A6 


DF 


0350- 


?A 


48 


98 


48 


4C 


95 


D9 


DO 


0358- 


DA 


E6 


01 


4C 


33 


03 







34 



10 REM 

***************************** 

* # 

* & ONERR DEMO * 

* <C> 1983 DIMITRI AUER * 

* * 
***************************** 
20 REM 

30 REM PLOT HARGEMENT DE LA ROU 
TINE 

40 PRINT CHR* ( 4) " BRUNAMPER . ONER 
R.0BJ0" 

50 REM ACTIVATION DE ONERR 
100 6c ONERR GOTO 1000 
200 REM 

***************************** 

* * 

* PROGRAMME PRINCIPAL * 

* * 
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* * 
***************************** 
210 TEXT : HOME 

215 INVERSE : FOR I = 1 TO 40 * 3 

: PRINT " " ; : NEXT : NORMAL 
220 VTAB 2: HTAB 13: PRINT " & ON 

ERR DEMO " 
240 PRINT : PRINT : PRINT "LIST20 

00,2010": PRINT : LIST 2000,2 

010 

250 VTAB 21: INVERSE : PRINT "ESS 
AYEZ DE STOPPER LE PROGRAMME 
PAR CTRL-C OU RESET. ENFO 

NCEZ LA TOUCHE 'S' POUR EXECU 
TER LA LIGNE 2010. 

255 NORMAL 

260 POKE - 16368,0 

270 VTAB 18: HTAB 15: PRINT " PAUS 
E . . . " 

280 FOR PA = 1 TO 1000: NEXT PA 
290 VTAB 18: HTAB 15: PRINT " 

II 

295 FOR I = 1 TO 10 

300 X = PEEK ( - 16384) - 128 

310 IF X = ASC <"S" ) THEN 2000: REM 

PRODUIT L'ERREUR 
315 NEXT 



320 GOTO 260: REM BOUCLAGE 
330 REM 

999 REM 

***************************** 

* * 

* ROUTINE DE CAPTAGE DE * 

* L'ERREUR * 

* # 
***************************** 

1000 & RESTORE : REM REMET A JO 
UR L POINTEUR DE PILE 

1005 CALL 1002: REM ET EN PLACE L 
ES VECTEURS 

1006 REM DU DOS EN CAS DE RESET 

1007 HOME : VTAB 12: NORMAL 

1008 FOR I = 1 TO 20 :X = PEEK (4 
9200): NEXT 

1010 PRINT "ERREUR! ! ! " 
1020 PRINT : PRINT "CODE:" PEEK ( 
222) 

1030 PRINT "LIGNE NO:" PEEK (218) 

+ 256 * PEEK (219) 
1040 POKE - 16368,0 
1050 PRINT : GET R*: GOTO 200 
2000 REM EXEMPLE D' ERREUR 
2010 PRINT LOAD : REM 

MOT RESERVE 



Programme assembleur 
a la fin d'un programme BASIC 

Roland Jost 



Lorsqu'un programme BASIC utilise 
un ou plusieurs programmes en Ian- 
gage machine, la methode la plus 
courante consiste a charger ceux-ci 
dans la page 3. ou en fin de me- 
moire vive. par des BLOAD. 
Cette methode presente deux incon- 
venients : 

1) perte de temps au moment du 
chargement en memoire : 

2) perte de place sur la disquette. 

lncorporer le programme machine a 
la fin du programme BASIC est une 
autre methode repandue. II y a deux 
avantages. D'une part, le chargement 
se fait en une seule fois. done gain 
de temps. D' autre part, la copie sur 
disquette ou cassette est plus simple. 
Inconvenient . si Ton veut modifier le 
programme BASIC, il faut recom- 
mencer toute la procedure. 

Rajouter un programme machine a la 
fin d un programme BASIC suppose 
l'execution des operations suivantes : 

1) charger le programme BASIC 

2) prevoir les modifications des 
adresses d'appel des sous-program- 
mes 



3) chercher la fin du programme 
BASIC par un PRINT PEEK) 175) + 
256.PEEKI176) 

4) charger le programme binaire a 
cette adresse 

5) modifier les adresses d'appel dans 
le programme BASIC. Attention, ceci 
ne doit pas modifier la longueur du 
programme BASIC. 

6) Positionner le pointeur de fin de 
programme a la fin du programme 
binaire. 

7) Sauver le programme (sous un 
autre nom par precaution). 

Bien que ces operations soient par- 
faitement rea'isables a la main, elles 
sont fastidieuses et une erreur est 
toujours possible. II est done plus sur 
d'automatiser tout le processus 
comme nous vous le proposons ici. 

Le fichier INCLUSION 

Ce fichier EXECutable vous de- 
mande le nom du programme 
BASIC, sauvegarde ses pointeurs. 
modifie les adresses de chargement 
du BASIC et charge le programme 
APPEND-PROG a l'adresse $6000. 



APPEND-PROG 

Ce programme Applesoft, charge par 
INCLUSION, vous demande le(s) 
nom(s) du ou des programmes binai- 
res a utiliser. Taper RETURN s'il n'y 
en a plus. 

Apres execution de APPEND-PROG. 
il ne vous reste plus qua sauver 
votre programme BASIC, qui englo- 
bera les routines en langage ma- 
chine. 

Pour que l operation se deroule nor- 
malement. il est necessaire d'inserer 
dans les premieres lignes de votre 
programme Applesoft une instruction 
du type : 

PI = $$$$$ . P2 = $$$$$ : Pn 

— $$$$$ 

PI Pn etant les noms de vos sous- 
programmes binaires. Attention : les 
mots reserves du BASIC ne doivent 
pas etre utilises. 

Les sous-programmes devront etre 
appeles par des CALL PL... CALL 
Pn. 

Dans le cas d'une table de formes . 
utiliser une instruction telle que : 



.IHItHIBHnm>< 
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SHAPE = $$$$$: POKE 233. 
SHAPE 256: POKE 232. SHAPE - 
PEEKI233) * 256 

Pour une bibliotheque de program- 
mes utilisant & (Ampersand), inse- 
rer : 



LIB = $$$$$: POKE 1013. 76: 
POKE 1015. LIB 256 : POKE 1014. 
LIB - PEEKU015). 256 

Si vos routines ne sont pas relogea- 
bles. reportez-vous a l'article de Phi- 
lippe Frangois dans Pom's 7. ou 
faites les modifications necessaires 
avant la sauvegarde du programme 
complet. 



Quelques details 

EXEC INCLUSION 

HOME : INVERSE : PRINT -INCLU- 
SION DE PROGRAMMES ASSEM- 
BLEUR A LA FIN D"UN PRO- 
GRAMME APPLESOFT ": NOR- 
MAL : PRINT 

POKE 118.0: POKE 43699.0: 
INPUT "NOM DU PROGRAMME 
APPLESOFT :":N$: POKE 43699.1 

Cette ligne merite quelques explica- 
tions. L'adresse 118 ($76. baptisee 
CURLIN) contient $FF en mode im- 
mediat. En mettant zero, on trompe 
l'interpreteur. Ceci permet d'executer 
des commandes INPUT. GET en 
mode immediat sans le fatidique "IL- 
LEGAL DIRECT ERROR". POKE 
43699.0 permet de deconnecter la 
commande EXEC. A la fin de 1' ins- 
truction, un POKE 43699.1 rend la 
main au fichier EXEC. 

PRINT CHR$(4) "LOAD " N$ 

POKE 26. PEEKH75) : POKE 27. 
PEEK! 176) 

on sauve l'adresse de fin de pro- 
gramme. 

POKE 103. 1 : POKE 104. 96 : 
POKE 24576.0 

modifie l'adresse de chargement d'un 
programme APPLESOFT. 
RUN APPEND-PROG 



APPEND-PROG 

Le sous-programme en langage ma- 
chine implante en page 3 permet. au 
terme de l'execution. de redonner 
aux pointeurs Applesoft des valeurs 
standards. 

Pour tester la procedure . nous vous 
proposons d'utiliser le programme 
ESSAI-INCLUSION comme pro- 
gramme Applesoft. Les sous-pro- 
grammes necessaires sont INV (inver- 
sion de chaines de caracteres) et 
STRING (affiche x fois une chaine). 
lis vous sont offerts "en prime" ! 



INV 

Certains BASICs. ainsi que PLE . 
possedent une fonction permettant 
l'inversion d'une chaine de caracte- 
res. Le programme assembleur INV 
realise cette operation sur une chaine 
ayant au plus 127 caracteres. 



Appel par: CALL 768.AS (CALL 
768.nom de la chaine) 

STRING 

Cette fonction existe dans certains 
BASICs. Elle permet d'afficher n fois 
la meme chaine de caracteres. 



Programme INV 



.'300- 


20 


BE 


DE 


.7SR 


SDFRF 


LoOLtJ ± <I V 1 J H U 1 c 


0303- 


20 


E3 


DF 


JSR 


SDFE3 


1 CLIICl LIIC V U I 1 Oi/l c 


0306- 


85 


FA 




STA 


SFA 




0308- 


84 


FB 




STY 


SFB 




030A- 


AO 


00 




LDY 


#S00 




030C- 


Bl 


FA 




LDA 


( SFA ) , Y 




030E- 


85 


FC 




STA 


SFC 




0310- 


C8 






TNY 




031 1 - 


Bl 


FA 




LDA 






0313- 


48 






PHA 






0314- 


C8 






INY 






0315- 


Bl 


FA 




LDA 


(SFA) ,Y 




0317- 


85 


FE 




STA 


SFE 


sauve l'adresse 


0319- 


68 






PLA 






031A- 


85 


FD 




STA 


SFD 




031C- 


A4 


FC 




LDY 


SFC 


on balaye la chaine 


031E- 


88 






DEY 






031F- 


Bl 


FD 




LDA 


(SFD) ,Y 




0321- 


48 






PHA 






0322- 


88 






DEY 






0323- 


10 


FA 




BPL 


S031F 


fin de chaine ? 


0325- 


A4 


FC 




LDY 


SFC 


on reconstitue 


0327- 


88 






DEY 




la chaine en 


0328- 


68 






PLA 




rlcuperant la pile. 


0329- 


91 


FD 




STA 


(SFD) , Y 




032B- 


88 






DEY 






032C- 


10 


FA 




BPL 


S0328 




032E- 


60 






RTS 







Programme STRING 



0300- 


20 


BE 


DE 


JSR 


SDEBE 


teste la virgule 


0303- 


20 


F8 


E6 


JSR 


SE6F8 


(value la formule 


0306- 


86 


06 




STX 


S06 


sauvegarde de la valeur 


0308- 


20 


BE 


DE 


JSR 


SDEBE 


teste la virgule 


030B- 


C9 


22 




CMP 


#S22 


est-ce un " 


030D- 


DO 


05 




BNE 


S0314 




030F- 


20 


81 


DE 


JSR 


SDE81 


saisie de la chaine 


0312- 


DO 


OA 




BNE 


S031E 




0314- 


20 


E3 


DF 


JSR 


SDFE3 


recherche la variable 


0317- 


20 


6C 


DD 


JSR 


SDD6C 


ce doit ~tre une chaine 


031A- 


85 


AO 




STA 


SAO 




031C- 


84 


Al 




STY 


SA1 




031E- 


20 


3D 


DB 


JSR 


SDB3D 


affiche la chaine 


0321- 


C6 


06 




DEC 


S06 




0323- 


DO 


F9 




BNE 


S031E 


on recommence ? 


0325- 


20 


B7 


00 


JSR 


S00B7 




0328- 


C9 


3B 




CMP 


#S3B 


teste le point-virgule 


032A- 


DO 


04 




BNE 


S0330 


032C- 


20 


Bl 


00 


JSR 


S00B1 




032F- 


60 






RTS 






0330- 


4C 


8E 


FD 


JMP 


SFD8E 


retour chariot 



36 
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Appel : 

CALL 768.n.A$ 
CALL 768.n.""chaine" 
CALL 768.n.A$: 
CALL 768.n."'chaine"'-. 

Le point virgule evite un retour cha- 
riot apres l'affichage. 



REMARQUES IMPORTANTES 

1 - les noms de vos sous-program- 
mes ne doivent pas se terminer par 
un $. 

2 - Attention aux pages graphiques. 
Condensez voire programme BASIC 



au maximum en combinant les lignes 
et en supprimant les remarques. Si 
necessaire . n'utilisez que la page 
graphique 2. 



1 



100 REM PROGRAMME APPEND 

101 REM ================ 

110 PRINT 

120 DEF FN PE(X) = PEEK <X> + 2 

56 * PEEK (X + 1) 
130 DS = CHRS (4):GS = CHRS (7) 
140 AF = FN PE(26) 

145 FF = AF « (AF < = 2200) + 220 

« (AF > 2200) 
150 ONERR GOTO 430 
160 GOSUB 250 

170 HOME : FOR I = TO K : PRINT 
BS(I): NEXT I: PRINT : IF K = 
THEN PRINT " EST";: GOTO 1 
90 

180 PRINT "SONT"; 

190 PRINT " MAINTENANT INCLUS A V 
OTRE PROGRAMME BASIC. LES APP 
ELS (CALL) DE VOTRE PRO 
GRAMME BASIC ONT ETE MIS A JO 
UR." 

200 PRINT : PRINT : PRINT " VOUS 
POUVEZ LISTER VOTRE PROGRAMME 
ET LE SAUVER SOUS LE NOM 
QUI VOUS CONVIENT." 

210 DATA 169,1,133,103,169,8,13 
3,104,165,26,133,175,133,105, 
165,27, 133,176, 133, 106,96,0 

220 FOR I = TO 21: READ DA: POKE 
768 ♦ I, DA: NEXT I 

230 CALL 768 

240 END 

250 REM RECHERCHE DES SOUS-PROGR 
AMMES 

260 FOR I = 2048 TO FF : IF PEEK 

(I) < > 208 THEN 400 
270 IF PEEK (I + 1) < > 36 OR PEEK 

(I * 2) < > 36 OR PEEK (I + 

3) < > 36 OR PEEK (1*4) < 
> 36 OR PEEK (I * 5) < > 3 

6 THEN 400 
280 FOR J = I - 1 TO I - 11 STEP 
- l: IF PEEK (J) < 65 THEN 

Kl = J - l:J =1-11 
290 NEXT J 

300 bs = 

310 FOR N = Kl TO I - 1:BS = BS + 

CHRS .( PEEK <N) ) : NEXT N 
340 REM CHARGEMENT DES SOUS-PROG 
RAMMES 

350 PRINT : PRINT BS" CHARGE A L 
'ADRESSE "AF 



360 PRINT DS"BLOAD "BS",A"AF 

380 AFS = RIGHTS (" " + STRS 

(AF),5): FOR L = 1 TO 5: POKE 
I ♦ L, ASC ( MIDS ( AFS , L , 1 ) ) : 
NEXT L:l =1+1 

390 LG = FN PE(43616):AF = AF + L 
G: POKE 27, AF / 256: POKE 26, 
AF - PEEK (27) » 256:K = K + 
1 

400 NEXT I 
410 RETURN 

420 REM TRAITEMENT D'ERREURS 



430 IF PEEK (222) = 6 THEN FLASH 
: PRINT GS;GS"CE FICHIER N'EX 
ISTE PAS": NORMAL : GOTO 210 

440 FLASH : PRINT GS ; GS"ERREUR D' 
EXECUTION ": GOTO 210 



100 REM PROGRAMME DE TEST APPEND 

101 REM 
110 HOME 

120 INV = SSSSS:STRING = SSSSS 

130 VS = CHRS (91) + "]": CALL ST 

RING, 20, VS; 
140 FOR J = 1 TO 19: HTAB 1: CALL 

STRING, 1 ,VS; : HTAB 39: CALL S 

TRING, 1 , VS; : NEXT J 
150 CALL STRING, 20, VS 
160 POKE 32,4: POKE 33,33 
170 VTAB 3: INPUT "VOTRE PRENOM , 

SVP ";AS 
180 CALL INV, AS 

190 VTAB 8: PRINT "MERCI ";: INVERSE 
: PRINT AS: NORMAL 

200 FOR T = 1 TO 3000: NEXT 

210 PRINT : PRINT "OH ! EXCUSE2 MO 

I ";: INVERSE : PRINT AS: NORMAL 
: PRINT : PRINT "J'AI INVERSE 
LES LETTRES" 

220 FOR T = 1 TO 3000: NEXT 

230 CALL INV, AS 

240 : PRINT : PRINT "VOILA,C'EST R 

ENTRE DANS L'ORDRE " 
250 PRINT : PRINT : HTAB 10: PRINT 

"AU REVOIR ";: INVERSE : PRINT 

AS: NORMAL 
260 PRINT : HTAB 10: CALL STRING, 

10 + LEN (AS),"#" 
270 TEXT : VTAB 22 
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BONJOUR LES PRIX ! ! 



nos prix sont F nc 



Carte langage 


550 


Speech card 


390 


Carte 128 k ram 


1800 


Carte horloge 


600 


Carte 80 colonnes 


750 


Joystick 


200 


Interface serie 


650 


Ventilateur 


320 


Super serie 


1100 


Controleur de drive auto switch 13/16 


450 


Interface parallele 


420 


Microdrive 3" 


2500 


Grappler + buffer 16 k 


1500 


Moniteur vert 12" 


950 


Interface modem 


2200 


Disquettes 5" 1/4 par 1 bo?te 


180/boTte 


Carte Z 80 


750 


" 5boites 


175/boite 


Wildcard 


650 


" 10boTtes 


170/boTte 



AU-DESSUS. NOUS CONSULTER. 



Carte bleue et visa accept&es 

Credit sous reserve d acceptation du dossier 



Computer 3 

, 3, rue Papillon 75009 Paris - Tel. 523.51.15 
(metro Poissonniere) 




LA PHOTOCOMPOSITION EM PROLONGEMENT bE LA MICRO-MOMATIOUE 




TR ANSM ETTEZ-NO U S VOS TEXTES 
PAR TELEPHONE 
ou 

DONNEZ-NOUS VOIRE DISQUETTE 



O 





Les textes de Dos articles, catalogues, annuaires ou brochures 
saisis sur ootre APPLE sont enOoyes directement sur notre photocom- 
poseuse. 

Nous Oous eVitons ainsi, le cout et le temps de la saisie supple - 
mentaire <{ue necessite le traitement traditionnel de la photocompo- 
sition aVant t'impression des documents, si Oous le desirez nous pou- 
Vons eqalement nous charger de /'impression et du brochage. 




NOTRE REFERENCE... LA REVUE POM'S 




PHoroamposmoK ctsnm ot nomas 

BWiAUTWW HMJIfflfl Of 

nUHStusswi w immtis nvanmrn 01 rims 



i J ei '5 jvenue Su Pei/i P$; 
943W mm«s 
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Des trues pour Apple Writer II et //e 

Herve Thiriez 



Mon propos dans cet article n'est pas 
de vous fournir un mode d'emploi 
d' Apple Writer II ou //e (il existe en 
effet une fonction Help avec "PO-?", 
pomme ouverte et "7" simultanes), 
mais de vous donner des trues d'utili- 
sation independents les uns des 
autres. 

Azerty ou Qwerty ? 

Avec I'Apple //e, le choix entre le 
mode Azerty et le mode Qwerty n'est 
pas forcement evident. Quand on 
doit souvent taper des chiffres, il peut 
etre preferable de taper en Qwerty 
(pour avoir les chiffres en minuscu- 
les) et d'utiliser les touches US per- 
mettant d'obtenir les caracteres spe- 
ciaux francais : les accolades 
ouvrantes (e) et fermantes (e), l'arro- 
bas (a), la barre transversale inversee 
(c), la barre verticale (u) et le tilde 
(trema). 

Le soulignement 

Le parametre de souligne est par de- 
faut le symbole "&", ce qui est assez 
facheux, car on a facilement recours 
a ce symbole, d'ou quelques souli- 
gnements inattendus. Avant d'impri- 
mer un texte. verifiez done qu'il ne 
comporte pas de "&" et modifiez le 
parametre de souligne dans le cas 
contraire, en utilisant un caractere 
non employe dans votre fichier. 

Si votre imprimante ne possede pas 
de mode souligne, vous pouvez anni- 
hiler totalement 1' option souligne- 
ment en entrant, une fois parvenu 
dans le mode de changement des 
parametres d'impression (avec 
"CTRL-P ?"), la sequence "PS" ime- 
diatement suivie de RETURN. 

Si votre imprimante possede un 
mode soulignement obtenu par des 
codes differents de ceux de l'impri- 
mante matricielle Apple, vous devrez 
entrer vous-meme les sequences de 
debut et fin de soulignement. Bien 
entendu, vous perdrez dans ce cas la 
justification pour les lignes ou appa- 
raitront ces symboles. 

La coupure des mots 

La touche CTRL-Z permet de bascu- 
ler entre la presentation des mots a 
l'ecran, coupes ou non. L'interet de 
l'option "coupure" reside dans le fait 
que Ton voit alors plus clairement s'il 
n'y a pas de RETURNs intempestifs 
a l'interieur des paragraphes. Inverse- 
ment, la "non-coupure" rend le texte 
plus lisible, quoiqu'a cet egard les 
opinions des utilisateurs puissent dif- 



ferer. En faisant "CTRL-Q G", on 
bascule entre I'affichage ou non des 
retours chariot. 

II y a une autre raison pour choisir 
l'un de ces deux modes : le deplace- 
ment vertical du curseur ne s'effectue 
pas de la meme maniere pour cha- 
que mode. Ainsi, si Ton veut effec- 
tuer des corrections en fin de para- 
graphe, et en remontant dans le 
texte, il vaut mieux etre en mode 
"coupure". Par contre, pour remon- 
ter le curseur verticalement sans de- 
calage lateral, le mode "non-cou- 
pure" est necessaire. 

Le glossaire 

Vous n'utiliserez jamais trop souvent 
le glossaire. Si votre Apple Writer est 
un outil d' usage frequent, vous pou- 
vez meme avoir recours a plusieurs 
glossaires. chacun specialise pour 
une tache precise (evitez cependant 
les confusions). On peut bien en- 
tendu mettre dans un glossaire un 
mot long tel que "micro-ordinateur", 
ou une formule de politesse comme 
"Veuillez agreer, Monsieur, ..." C'est 
ainsi que certaines lectrices recoivent 
parfois de ma part des lettres aux 
formules douteuses. 

Pour utiliser le glossaire avec I'Apple 
//e, ne vous fatiguez pas a entrer 
"CTRL-G" suivi du caractere : il suf- 
fit de faire "PO" (pomme ouverte) et 
le caractere simultanement. 

La meilleure fa?on de concevoir des 
glossaires specifiques consiste proba- 
blement a creer un noyau de glos- 
saire, contenant par exemple tous les 
caracteres de controle de 1' impri- 
mante (qualite courrier, compresse, 
caracteres etendus, ...), qui servira de 
point de depart aux glossaires specifi- 
ques. 

On peut - ne nous en privons pas - 
utiliser des commandes de glossaire 
incorporant des caracteres de 
controle ou des RETURNs. 

Caracteres de controle 

Avec l'imprimante matricielle Apple., 
un "e" s'obtient avec la sequence " 
CTRL-V CTRL-H CTRL-V e", soil 
huit touches ... L'ideal serait de creer 
cette sequence dans le glossaire, 
pour pouvoir l'appeler par exemple 
avec "PO-e". Malheureusement, le 
glossaire refuse, dans son mode de 
creation normal, la sequence "CTRL- 
V CTRL-H CTRL-V". II faut alors 
sauvegarder le glossaire sur la dis- 
quette. puis le charger comme un ri- 
cher normal. On peut ensuite rentrer 



la sequence de touches de la fagon 
suivante:"" CTRL-L CONTROLV 
(CONTROLV est un fichier qui se 
trouve sur la disquette Apple Writer 
//e) CTRL-V CTRL-H CTRL-V 
CTRL-L CONTROLV e". Le charge- 
ment de CONTROLV place simple- 
ment un caractere CTRL-V, materia- 
lise par un V en inverse, a la place 
du curseur, tandis que la sequence 
"CTRL-V CTRL-H CTRL-V" permet 
d'obtenir un CTRL-H (soit un H en 
inverse a l'ecran). II ne reste qu'a 
sauvegarder ce fichier glossaire modi- 
fie. 

D'ailleurs, lors de la creation ou de la 
mise a jour d'un glossaire, il est a la 
fois plus rapide et plus sur de proce- 
der ainsi que de passer par "CTRL- 
G ?" a chaque item. 

Insertion de RETURNs 

Un retour chariot est indique dans le 
glossaire par le symbole "§" en 
Azerty, et "]" en Qwerty. Ainsi, pour 
marquer le passage en mode 
compresse et le changement corres- 
pondent des marges avec mon 
Oki92, j'ai cree la commande de 
glossaire "PO-c", directement a partir 
de "CTRL-G?", en entrant "c 
CTRL-V CTRL-X CTRL-V § CTRL- 
V CTRL-§ CTRL-V §.mglO§.md 
121§.jt". CTRL-X annule le mode 
qualite courrier et CTRL-§ met en 
mode compresse. J'ai ajoute ici, pour 
faciliter la lecture, un blanc pour se- 
parer les touches de controle, mais 
tout etait contigu lors de la creation 
de la commande. 

Fichiers tampons 

Plutot que d'encombrer le glossaire 
avec des textes longs tels que formu- 
les de politesse, indication de chan- 
gement d'adresse, exposition des 
conditions de vente, il est prefera- 
ble de creer autant de petits fichiers 
tampons que 1'on chargera, le mo- 
ment venu, avec un simple CTRL-L. 
En effet, le glossaire est limite a un 
total de 2048 caracteres, meme si 
Ton peut (voir la documentation du 
programme) chainer des definitions 
du glossaire. 

Recherche de chaines 

On se trompe parfois, lors de la re- 
cherche (et du remplacement) de 
chaines en effectuant la recherche 
vers le haut alors qu'on souhaitait 
l'effectuer vers le bas, ou inverse- 
ment. Pour eviter ce type d'erreur, 
chaque fois que je desire corriger un 
texte (en general du haut vers le 
bas), je precede les corrections d'un 
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CTRL-B qui, tout en me placant en 
haul du fichier, garantit que les re- 
cherches iront dans le bon sens. 



Visualisation du texte 

Quand on commence a utiliser la pa- 
gination, ou les titres en haut et bas 
de page, on souhaite parfois visuali- 
ser le resultat possible avant de lan- 
cer effectivement l'imprimante. C'est 
interessant aussi pour tester les 
consequences de la justification (faut- 
il ajouter des cesures ?). 

La solution, toute simple, consiste a 
indiquer avec "CTRL-P PDO" que 
l'imprimante (Printer Destination) est 
en fait l'ecran. Si Ton a peur que 
tout cela defile trop vite, il suffit de 
prendre par exemple les parametres 
d'impression "LI20" et "1P20" et 
d'indiquer avec "FE1" que Ton sou- 
haite "imprimer" feuille a feuille. 



L'impression 

Pour imprimer sur du papier en 
bande un texte continu sans saut de 
page, il suffit d'entrer (apres "CTRL- 
P ?") les parametres d'impression 
suivants: MHO, MBO, LI1, IP1 (ou 
tout autre nombre a la place du "1", 
tant qu'il est egal pour LI et IP). 



La lecture de fichier 

Si vous essayez de lire un fichier 
dont le nom comporte un trait 
d'union ce nom n'est pas re- 

connu en lecture. Heureusement, on 
peut alors, avec "CTRL-O B" re- 
nommer le fichier (la, le nom est re- 
connu) et lui donner un nom accep- 
table en lecture. 

Mise a jour des parame- 
tres 

Les parametres d'impression, access- 
sibles par "CTRL-P ?", se mettent a 
jour automatiquement apres chaque 
impression. Cela peut provoquer des 
surprises : si vous avez defini un titre 
haut (ou bas) directement dans le 
texte pour qu'il n'apparaisse pas sur 
la premiere page (la page de garde), 
il se trouvera dans les parametres ge- 
neraux apres l'impression. Si done 
vous lancez ensuite une seconde im- 
pression sans avoir pense a effacer 
ce titre de la liste des parametres par 
defaut, il apparaTtra a la seconde im- 
pression des la page de garde (et 
cela decalera aussi toute numerota- 
tion des pages que vous auriez pu 
demander). 

Le WPL 

Le Word Processing Language 
(WPL) est un excellent langage 



complementaire (livre avec Apple 
Writer He) permettant de creer des 
etats personnalises, d'effectuer des 
calculs, de preprogrammer en fait de 
multiples commandes d' Apple Writer. 

Nous l'utilisons. chez Pom's, pour 
transformer automatiquement certai- 
nes sequences de caracteres qui nous 
sont propres en celles attendues par 
la machine de photocomposition de 
notre imprimeur. Ainsi, Pom's est 
realise grace a des textes prepares en 
Apple Writer He, transformes par 
WpL. puis transmis par modem a 
l'ordinateur de rimprimeur. 

La documentation du WPL occupe a 
elle seule plus de 100 pages; comme 
on peut en outre travailler quotidien- 
nement avec Apple Writer sans 
jamais avoir recours au WPL, nous 
n'en parlerons pas dans cet article. 



Bibliographie 

Bien entendu, nous vous conseillons 
(n'en deplaise aux copieurs freneti- 
ques) la documentation du pro- 
gramme, dont la traduction franchise 
est bien faite. A part cela, vous pour- 
rez lire "Donnez du caractere a votre 
imprimante" dans le Pom's 9, et "Un 
bug Apple Writer He" dans le Pom's 
10 (page 70). ■ 



Adaptez Applewriter 1.1 a F Apple //e 

Jacques Leroy 



Le programme de traitement de 
textes Applewriter 1.1 des Apple II et 
II Plus utilise des modules qui per- 
mettent d'introduire des minuscules, 
certains caracteres speciaux et de 
pallier I'absence de touches de de- 
placement du curseur. 

Son utilisation sur un Apple He est 
par contre source de deboires (les es- 
paces sont remplaces par une demi- 
barre transversale gauche, les chiffres 
deviennent des lettres minuscules) et 
cause d'insatisfactions (les possibilites 
nouvelles du clavier demeurent inuti- 
lisables). II convient par consequent 
de modifier ces modules afin d'obte- 
nir le systeme adequat. 

Dans le Pom's 3. Jean-Louis Meil- 
laud rappelait qu' Applewriter 1.1 est 
un logiciel "ouvert", a condition de 
se plonger dans les programmes en 
langage machine. Apres un travail de 
benedictin, sans avoir pratique ante- 
rieurement 1' hexadecimal, j'ai reussi a 
detecter les modifications necessaires 
pour adapter Applewriter 1.1 a ('Ap- 
ple e. Ces modifications sont a la 
portee de tous et n'utilisent que le 
moniteur de 1' Apple. 



Modification de TEDITOR 



UNLOCK TEDITOR 
BLOAD TEDITOR 
RENAME TEDITOR. OLD.TEDITOR 
LOCK OLD TEDITOR 
CALL -151 : passage en mode moni- 
teur 

*1505: EA EA EA EA 

Minuscules et caracteres speciaux. 
*09E0: EA 

Un seul espace pour passer en mode 
"displacement du curseur". 
*09E9: 8B 
*09F0: 8A 
•09F7: 95 
*09FE: 88 

Utilisation des quatre fleches pour 
deplacer le curseur apres la touche 
ESC, pour les corrections a faire 
dans le texte. 
*080C: 83 
*0810: C3 

Neutralise le CTRL-C dont les effets 
sont maintenant devenus nocifs. 
*3D0G : retour au Basic 
BSAVE TEDITOR. A$803. L$1040 
LOCK TEDITOR 



Modification de PRINTER 

UNLOCK PRINTER 

BLOAD PRINTER 

RENAME PRINTER.OLD.PRINTER 

LOCK OLD.PRINTER 

CALL -151 

*12E1: EA EA Caracteres speciaux 
*12E8: 00 Majuscules et 
*12F6: 00 minuscules 
• 109D: EA EA EA EA 
En-tete de page 
*0F56: Al 

Commandes d'impression desormais 
de la forme "!FJ" avec des majuscu- 
les. 

*3D0G 

BSAVE PRINTER, A$803. L$1040 
LOCK PRINTER 

NDLR - Ces transformations vous 
permettent d' utiliser Applewriter 1.1 
sur un Apple He sans devoir acquerir 
Applewriter He, Par contre, les carac- 
teres etant recodes. vous ne pourrez 
avec cette nouvelle version d'Ap- 
plewriter 1.1 ni lire vos anciens fi- 
chiers Applewriter 1.1. ni transformer 
les nouveaux fichiers Applewriter 1.1 
en format Applewriter He. ■ 
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Un editeur de shapes 

Thierry Le Tallec 



Ce programme vous permettra de 
constituer simplement des tables de 
shapes et de les modifier selon vos 
desirs (suppressions ou ajouts de 
shapes), de les visualiser. les sauver 
sur disquettes et les relire... 

Mode d'emploi 

II ne devrait pas vous poser de pro- 
blemes. dans la mesure ou le pro- 
gramme indique toujours la nature 
des traitements possibles et vous y 
donne acces au moyen de menus. 

Pour la creation d'une shape, vous 
disposez d'une "fenetre" quadrillee 
representant un agrandissement de la 
partie de "forme" en cours de crea- 
tion. La shape complete est dessinee 
en grandeur reelle et en continu a 
droite de cette fenetre. Si vous tou- 
chez Fun des bords ce celle-ci au 
cours des deplacements du spot, elle 
se deplace egalement sur la shape, 
c'est-a-dire que la partie agrandie se 
decale a l'interieur de la fenetre. 

Les touches [, J, K et M permettent 
les deplacements habituels. La tou- 
che P place un point a la position du 
spot dans la shape, et la touche F 
marque la fin de l'edition pour la 
creation definitive et 1' incorporation 
de la shape dans la table. 
La touche E est utilisee pour I'efface- 
ment: elle annule I'effet de la der- 
niere touche employee, qu'il s'agisse 
d'un deplacement ou de la mise en 
place d'un point. Une sequence de 
"E a repetition" permet done de re- 
faire en sens inverse tout le chemin 
accompli depuis le debut de la crea- 
tion. 

Une seule precaution a prendre lors 
de la creation d'une shape : ne pas 
depasser le nombre maximum de 
vecteurs autorise pour chacune d'el- 
les (le programme vous previent lors- 
que vous approchez de la zone dan- 
i gereuse). 



Le programme 

II se compose d'un programme en 
Applesoft et d'une routine en Ian- 
gage machine "cachee" a la fin de 
celui-ci. Vous trouverez ci-apres la re- 
capitulation hexadecimale de cette 
routine : elle occupe les adresses 
$1753 a $1820 (5971 a 6176 en de- 
cimal). Les adresses $1821 a $19A1 
(6176 a 6561) sont en outre utilisees 
comme zone de stockage. 

Si vous rentrez vous-meme ce pro- 
gramme en machine, vous devrez 
done mettre aux adresses $AF-$B0 
(175-176), qui contiennent l'adresse 
de fin du programme Applesoft en 
memoire. l'adresse $19A1 (dans l'or- 
dre Al 19). et ce apres avoir saisi 
l'Applesoft et le code-machine, mais 
avant de sauver le tout sur disquette 
par une seule instruction SAVE. 
Vous pouvez faire. par exemple : 
POKE 175. 161 : POKE 176. 25 
apres retour au Basic, avant de taper 
SAVE "programme". 

NDLR : lors de la lecture du pro- 
gramme Applesoft d'edition de 
shapes, vous trouverez certaines ins- 
tructions quelque peu bizarres. a 
base de variables a priori inutiles 
dont le nom comporte un nombre 
variable de Z (voyez notamment la 
derniere ligne !). Si vous rentrez ce 
programme en machine, il ne vous 
sera pas necessaire de reproduire ces 
instructions. I'essentiel etant que vous 
respectiez l'adresse de debut de la 
routine en langage machine ($1753) 
et que vous ne tapiez pas finalement 
un programme Applesoft plus long 
que celui publie ci-apres (afin qu'il 
n'y ait justement pas conflit entre les 
deux parties du programme). Pour 
notre part, nous avons laisse ces ins- 
tructions dans la liste afin quelle 
reste comparable au programme 
fourni sur la disquette d'accompa- 
gnement de ce numero de Pom's. 



Nous allons maintenant vous expli- 
quer brievement leur raison d'etre. 
La version initiale du programme 
proposee par 1'auteur comportait un 
grand nombre de caracteres de 
controle. destines notamment a ame- 
liorer la presentation du texte a 
I'ecran (sauts de ligne). Mais ces ca- 
racteres presentent un grave inconve- 
nient : ils n'apparaissent pas lors d'un 
LIST du programme et peuvent 
meme donner I'impression qu'une 
serie d'espaces separe les deux par- 
ties de texte qui les encadrent. 
Consequence : le lecteur ne peut pas 
reconstituer le programme original a 
partir de la liste publiee. De plus, 
abuse par cette liste, il risque de 
taper un programme trop long, de- 
bordant sur les adresses reservees a 
la routine en langage machine, pour 
aboutir a un resultat deplaisant : un 
plantage". Nous avons done modi- 
fie ce programme, afin d'obtenir 
exactement le meme nombre d'oc- 
tets pour l'Applesoft. mais unique- 
ment avec des caracteres visibles. 

Ceci nous fournit l'occasion de lancer 
un appel a I'intention de tous les au- 
teurs qui envisagent de contribuer a 
Pom's : n'oubliez pas vos futurs lec- 
teurs ! En d'autres termes. n'incorpo- 
rez dans vos programmes que des 
caracteres "listables et publiables". 
surtout si leur fonctionnement sup- 
pose l'emploi d'une routine "ca- 
chee". De meme. il est bon de se 
rappeler que tous les possesseurs 
d'Apple ne disposent pas d'un sys- 
teme permettant l affichage des mi- 
nuscules a I'ecran. Une instruction 
telle que : PRINT "Appuyez sur C 
pour continuer" risque fort de laisser 
perplexe Futilisateur d'un Apple 11 + 
standard. et il est alors douteux, jus- 
tement. qu'il puisse continuer. 



Programme SUPER-SHAPES 
Partie visible 



1 ON ERR GOTO 24 

2 A = 5971 :B* = CHR* <4):AX = 200 

: DEF FN A<EO = PEEK <B) + 
256 * PEEK <B + 1): HC0L0R= 
3: SCALE= 1: R0T= 0: DIM BX(A 
X) : GOTO 21 

3 FOR C = 1 TO 1 : FOR D = TO 

1: HPLOT B + D , E + C s NEXT : NEXT 
: HC0L0R= 3: RETURN 



E + 3 STEP 6: HPLOT 

NEXT : FOR C = 
STEP 4: HPLOT 
2,C: NEXT : FOR 
+ 1 : HPLOT B - 
HC0L0R= 



FOR C = E - 3 TO 

B , C TO B + i ,C 

E - 2 TO E + 2 

B - 1 , C TO B + 

C = E - 1 TO E 

2,C TO B + 3,C: NEXT 

3: RETURN 
POKE 34,0: INVERSE : VTAB 21: HTAB 

1: PRINT " DEBUT= " F ; SPC( 13 - 
PEEK 136) > 5 "FIN=" ;G; SPC( 25 
- PEEK < 36) ); "SHAPE ";CX"/ n 

H; SPC< 40 - PEEK (36)): NORMAL 

: POKE 34,21 : RETURN 
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6 POKE 34,1: HOME : VTAB 4: PRINT 

"1. CATALOGUE DRIVE 1": PRINT 

: PRINT "2. CATALOGUE DRIVE 2 

" : PRINT : PRINT "3. "C*" TAB 

LE DE SHAPES" : PRINT : PRINT 

"4. RETOUR AU MENU": PRINT : PRINT 

: PRINT "VOTRE CHOIX :"; 

7 GET A*:C = VAL (A*): I F C < 1 OR 

C > 4 THEN 7 

8 PRINT C: IF C = 1 THEN PRINT B 

*" CATALOG, Dl " : GET A*: GOTO 6 



9 


IF C = 


2 THEN PRINT B*" CATALOG 




,D2" 




GET A*: GOTO 6 


10 


IF 


C 




4 THEN POP : GOTO 24 


1 1 


RETURN 






1 2 


IF 


I 


> 


279 THEN I 


= 155 


1 J 


IF 


I 


< 


155 THEN I 


= 279 


14 


IF 


J 


> 


159 THEN J 


= 


15 


IF 


J 


< 


THEN J = 


159 


16 


IF 
A 


E 


> 


148 THEN E 


= 148: CALL 


1 7 


IF 

3 


B 


< 


3 THEN 8 = 


3: CALL A + 


18 


IF 
6 


E 


< 


4 THEN E = 


4: CALL A + 


1? 


IF 


B 




150 THEN B 


=150: CALL 




A 


+ 


9 






20 


RETURN 






21 


K = 


232 


L = 233 :M = 


= 49152:N = 4 




9168 






22 


IF 


F 




THEN HOME : VTAB 10: 



PRINT "*300=768" : PRINT "*40 
00=16384": PRINT "*6000=24576 
" : PRINT "*8000=32768" : PRINT 
"*9000=36864" : PRINT : PRINT 
" LOMEM=" FNA(105): PRINT "HI 
MEM=" FNA(115): INPUT "ADRES 
SE DEBUT (DECIMAL) :" ;F: IF F < 
768 THEN F = 0: GOTO 22 

23 POKE F,0:G = F: POKE K,F - INT 

(F. / 256) # 256: POKE L, INT 
<F / 256) :Z = ZZ 

24 TEXT : HOME : INVERSE : PRINT 

EDITEUR DE SHAPES 
" : NORMAL : VTAB 5 
: PRINT "1. CREER LINE TABLE D 
E SHAPES": PRINT "2. AJOUTER 
DES SHAPES": PRINT "3. SUPPRI 
MER DES SHAPES" 

25 PRINT "4. VISIONNER VOS SHAPES 

" : PRINT "5. LIRE UNE TABLE D 
U DISQUE": PRINT "6. SAUVER L 
A TABLE SUR DISQUE": PRINT "7 
. TERMINER": POKE 34,20: HOME 
:H = PEEK (F): GOSUB 5:Z = Z 
Z 

26 VTAB 23: HTAB 1: PRINT "VOTRE 

CHOIX :";: GET A*:C = VAL (A 
*) : IF C < 1 OR C > 7 THEN 26 

27 PRINT C: ON C GOTO 64,71,73,80 

.86,89,91 

28 VTAB 23: HTAB 2:0 = 

29 PRINT CHR* (7)j:B = 80 : E = 76 

: GOSUB 3 -.By. = 0:1 = 216: J = 
79 

30 By. = BZ + 1 : I F BX > AX - 1 THEN 

INVERSE : VTAB 21: HTAB 1: PRINT 
CHR* (7);" VECTEUR H" ; BX ; SPC( 
5);"<MAX = ";AX;")"; SPC( 40 - 
PEEK (36)): NORMAL : VTAB 23 



: HTAB 2 

31 GET A*: I F At = "P" THEN HPLOT 

I, J: GOSUB 4:0 = 4: GOTO 31 

32 I F A* < > " I " THEN 35 

33 IF = THEN HCOLOR= 0: GOSUB 

3 

34J=J-l:E=E-8: GOSUB 12: GOSUB 
3:BX(BX) = + 0:0 = 0: GOTO 

30 

35 IF A* < > "J" THEN 38 

36 IF = THEN HC0L0R= 0: GOSUB 

3 

37 I = I - 1:B = 6 - 7i GOSUB 12: GOSUB 

3:BX(BX) = 3 + 0:0 = 0: GOTO 
30 

38 IF A* < > "K" THEN 41 

39 IF = THEN HCOLOR= 0: GOSUB 

3 

40 I = I + 1 :B = B + 7: GOSUB 12: GOSUB 

3:BX(BX) = 1 + 0:0 = 0: GOTO 

30 

41 IF A* < > "M" THEN 44 

42 IF = THEN HCOLOR= 0: GOSUB 

3 

43 J = J + 1 : E = E + 8 : GOSUB 1 2 : GOSUB 

3:BX(BX) = 2 + 0:0 = 0: GOTO 

3d 

44 IF A* < > "E" THEN 53 

45 BX = BX - 1 :P = BX(BX) : IF = 

4 THEN HCOLOR= 0: HPLOT I, J: 
GOSUB 4 

46 = : HCOLOR= 0: GOSUB 3 : ON B 

V. = GOTO 29: IF P > 3 THEN 
P = P - 4 

47 IF P = THEN E=E+8:J=J+ 

1 

48 IF P = 1 THEN B = B - 7:1 = I - 

1 

49 IF P = 2 THEN E = E - 8:J = J - 

1 

50 IF P = 3 THEN B = B + 7:1 = I + 

1 

51 GOSUB 12: IF BX(BX) > 3 THEN 

HCOLOR= 0: HPLOT I, J: GOSUB 4 

52 GOSUB 3 

53 IF A* < > "F" THEN 31 

54 HOME : VTAB 23: PRINT "CREATIO 

N EN COURS":Q = 0:R = 0:S = 1 
: IF = 4 THEN BX(BX) = 4 : BX 
= BX + 1 

55 C = PEEK (49200) :P = BX(S):R = 

R + 1 : I F R > 3 THEN R = 1 

56 IF R = 1 THEN Q = P 

57 IF R = 2 THEN Q = Q + 8 * P 

58 IF R < > 3 GOTO 61 

59 IF P < 4 THEN Q = Q + 64 * P 

60 POKE T,Q:T = T + 1: I F F = OR 

P > 3 THEN S = S - 1 : IF Q < 
8 THEN POKE T - l.Q + 64:0. = 
3:R = 1 

61 S = S + 1 : IF S < BX THEN 55 

62 POKE T,Q: IF Q > THEN T = T + 

1 : POKE T,0 

63 T = T + 1 : HGR : DRAW CX AT 1 39 

,79: RETURN 

64 HOME : VTAB 23: INPUT "NOMBRE 

DE SHAPES (1-255) ?";H: IF H < 

1 OR H > 255 THEN 64 

65 CX = 0: POKE F,H: FOR C = 1 TO 

3: POKE F + C.O: NEXT : G = F + 

2 * H + 2 

66 HOME : PRINT " I": PRINT " J K 
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POUR DEPLACER, P = POINT, E = 
EFFACE M" ; SPC( 17) 5 "F = FIN 
" ; :CX = CX + 1 : IF CX > H THEN 
CX = H: GOTO 24 

67 T = G:U = T - F: POKE F + 2 * C 

'/.,U - INT CU / 256) * 256: POKE 
F + 1 + 2 * CTA, INT (U / 256) 
: GOSUB 5: HGR : FOR C = TO 
154 STEP 7: HPLOT C,0 TO C,15 
2: NEXT : FOR C = TO 152 STEP 
8: HPLOT 0,C TO 154,C: NEXT : 
GOSUB 5: GOSUB 28 

68 HOME : VTAB 23: PRINT "EN ETES 

-VOUS SAT I SFAIT ?" ; : GET A*: IF 
A* < > "0" AND A* < > "N" THEN 
68 

69 IF A* = "N" THEN CX = CX - 1 : GOTO 

66 

70 G = T: GOTO 66 

71 ON H = GOTO 24: HOME : UTAB 

23: INPUT "COMBIEN UOULEZ-VOU 
S EN AJOUTER ? ";V:W = H + V: 
IF K> < 1 OR W > 255 GOTO 71 

72 D = FiX = 2 * V: FOR C = 1 TO H 

:D = D + 2:T = FN AC D) + X:S 
= INT (T / 256) :P = INT <T 

- S * 256): POKE D,P: POKE D 
+ 1 , S : NEXT :D=D+X+2:G 
= G ♦ X: FOR C = G TO D STEP 

- 1: POKE C, PEEK <C -X): NEXT 
:H = W: POKE F,H: GOTO 66 

73 ON H < 2 GOTO 24: HOME : VTAB 

23: INPUT "QUELLE SHAPE UOULE 
Z-VOUS SUPPRIMER ? ";CX: IF C 
X < 1 OR CX > H THEN 73 

74 HGR : GOSUB 5: DRAW CX AT 139, 

79: HOME : MTAB 23: PRINT "C 
EST BI EN CELLE-CI <0/N) ? ";: 
GET A*: IF A* < > "0" THEN 
73 

75 HOME : VTAB 21 : FLASH : PRINT 

"COMPRESSION EN COURS, VEUILL 
EZ PAT I ENTER" ; : NORMAL :U = C 
X * 2 + F:T = F + FN A<U):C = 
T 

76 D = PEEK (C): POKE C,0:C = C + 

1 : IF D < > THEN 76 



77 X = C - T: FOR D = C TO G: POKE 

D - X, PEEK (D): NEXT :G = G - 
X:H = H - 1 :U = F: FOR C = 1 TO 
H:U = U + 2: IF C > CX THEN T 
= FNA<U+2)-X-2: GOTO 
79 

78 T = FN A < U ) - 2 

79 P = INT CT / 256): POKE U + 1, 

P: POKE U, INT <T - P * 256): 
NEXT :G = G - 2: FOR C = U + 

2 TO G: POKE C , PEEK < C + 2): 
NEXT :CX = H: POKE F,H: GOTO 

24 

80 ON H = GOTO 24: HOME : CX = 1 

: PRINT : PRINT " ESPACE = PAU 
SE RETURN = FIN" 

81 HGR : GOSUB 5: DRAW CX AT 139, 

79 :C = 1 

82 D = PEEK <M) : IF D < 128 THEN 

C=C+ 1: ON C < 100 GOTO 82 
: CX = CX + 1 : ON CX < = H GOTO 
81 :CX = H: GOTO 24 

83 POKE N,0: IF D = 141 THEN CX = 

H: GOTO 24 

84 IF D = 160 THEN MTAB 24: GET 

A*: IF CX < H THEN CX = CX + 
1 

85 GOTO 81 

86 C* = "LECTURE D'UNE": GOSUB 6 

87 VTAB 23: HTAB 1: INPUT "DONNEZ 

-SON NOM :";D*: ON D* = "" GOTO 
87: PRINT Bt" BLOAD" ; D* ; " , A" ; F 
:H = PEEK (F):CX = H:G = F + 
FN AC F + 2 * H) 

88 G = G < 1 . ON PEEK C G - 1 ) < > 

GOTO 88: GOTO 24 

89 C* = "SAUVER LA": GOSUB 6 

90 YTAB 23: HTAB 1: INPUT "SOUS Q 

UEL NOM ? " ; Dt : ON D* = " " GOTO 
90: PRINT B* n BSAUE" ; D* ; " , A" ; F 
; " , L " ; G - F : GOTO 24 

91 TEXT : HOME : ZZZZZZZZZZZZZZZZZ 

ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ 
ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ 
ZZZZZZZZZZZZZZZZZZZZZZZZZZ = 




Partie cachee de 
SUPER-SHAPES 



1751- 


41 


00 


4C 


83 


1 7 


4C 


CI 




1758- 


17 


4C 


E6 


17 


A2 


97 


BD 


El 


1760- 


18 


85 


04 


BD 
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RENDEZ VOTRE APPLE * ENCORE "PLUS" 

Cartes et accessoires additionnels compatibles APPLE II ft 



POUR JEUX VIDEO ET 

MICRO- 
ORDINATEURS 



INTERFACE 
PHS 60 
UNIVERSEILE 
Compatible 

lous micro-ordinateurs 
et ieux vid6o. 
Entree PERITEL. 
Sortie UHF - SECAM L 
Regulateur de tension incorpore. 




FLOPPY DRIVE pour APPLE 
8 POUCES 



2S99 F I q| 

PROMOTION DISQUETTE POUR FLOPPY 

b SF-OD 48TPI. I unite , „ £, 

par 10 pieces lunite 19 F, P>' 50 P ltos '' un " 4 10 1 

3 POUCES MD3 «HITACHI» 

- Capacite DD : 500 K octets, 
disquette rigide protegee I'unite 68 F 



«MONITOR BASE» 
SOCLE ORIENTABLE POUR 
MONITEURS NR ou COULEUR 



2950' j 



S onente en toutes 
directions • 
Angle de 12. 5° en 
position avant et arriere 
(soit 26°) 

» Mobile ou fixe avec brocage 

• Patios aniiderapants 

• Supporte plus de 80 kg. 



199 F 



CARTE LANGAGE 16 K RAM 




Pour exfension du 48 K BAM en 64 K Compatible 
FORTRAN PASCAL. LISP BASIC | ' p i 

Entierement $nuipee I 



CARTE D'EXTENSION 
188 K RAM 





Emulation disk-drive 

sous DOS. PASCAL ou CP.M 

Enticement equipee 



CARTE 80 COLONNES 




car . x 24 lignes. Resolution 7x9. Compatible avec 
la piupart des traitements de lexle BASIC. 
PASCAL. CP;M MODEM \ n A f I 

Entierement 6quipe 749 I 



CARTE Z 80 




Fonctionne sous CP.'M n i 
Utilisation de tout logiciel sous CP M 799 
Entierement SquipSe I 



CARTE INTERFACE POUR 8 
FLOPPY-DRIVE 



KIT 




CARTE D 'UNITE CENTRALS 

double procesaenr 6802 et Z 80. 64 K 
HAM 



Entierement eguipee 




CARTE DE PROGRAM MATION 
8716-2738-8764 



Entierement equip^e 
(sans ROM> 

7 slots d' extensions. Fonctionne sous CPJM 

CLAVIER ASC II 





Programmation lecture'copie 

shargement de programme directement sur 2716. 

Entierement fiquipfie. 



68 touches. Alphanumerique. 
Majuscules, minuscules, dficimales 

ALIMENTATION 220 v. 5 a 

COFFRET jour carte de base, clavier et pave 
numririque. 



CARTE RVB 

Ml 



pour 
moniteur 




(modules months, cables, equip^s) 
Carte d'unitrj 

centrale avec 6502 et Z80 3360 F 

Clavier ASC II 980 P 

Alimentation 220 V. 5 A 799 F 

Cottret / "' 1 698 F 




5797 F 



LENSEMBLE 



Chaque element peut-etre achete" separfement. 



CARTE INTERFACE BUFFERISEE 
IMPRIMANTE 




Butler 



Pour toutes marques sortie CENTRONICS 

64 K RAM. I 1 

Livree equipee en 16 K 1 690 F 

lextension jusqu'a 64 K) I— • m ^ ml ^^ 

CARTE INTERFACE POUR 4 
IMPRIMANTES EN BATTERIE 



Permei de brancher 4 impnmantes 



CARTE DE CONNECTION 
serie RS 838 C 



CARTE «SPEETCH» 





Cane langage 

en Anglais et phonemes 



JOY-STICK 




MONITEURS 



OCEANIC 

14" couleur 

ZENITH 12" 

ecran vert 



3S_0(g| 
999 F 



TABLE GRAPHIQUE 1590 F 



Moniteur couleur RTC 

en module 
simple a monter. 
Avec Pentei. electrontque 
et meeanique complet 



IMPRIMANTE SEIKOSHA 
GRAPHIQUE COMPACTE 

GP 100 A 




Interlace parallele en standard. 80 car hgne 50 car.: 
sec. Impression en simple ou double largeur Papier 
normal Entralnement par tracteurs ajustables. 

Interlace pour APPLE II ou I IE avec cable 890 F 




Papier pour GP 100 
Les 1000 leuines 
Ruban encreur GP 10 



160 F 
99 F 



VENTILATEUR «FAN» 
pour Apple 

498 F 



IMPRIMANTE 

GP 80A SEIKOSHA 

• Entrainement a friction • Graphique 

• 2 epaisseurs de caractires 

• Interlace parallele 
compatible CENTRONICS 
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EFFACEUR B'EPROM 
EN KIT 

Complet avec notice 



DECOTJPAGE 



• APPLE est une marque deposee et appartient a APPLE COMPUTER S.A. 
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12 V 1.5A« 



779F 



CONDITIONS GENERALES OE VENTES PAR CORR ESPONDANCE 

Pour eviwi les Irais de corwe-remDoursemcni. nous vous conseilions ae regisr vos 

commands m tag rat erne nt (y compus Ira.s de poll FORFAIT DE PORT 25 F 
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Nombrcs flottants en langage machine 

Erick Ringot 



Introduction 

Le but de cet article est double : 

• approfondir les connaissances du 
lecteur en matiere de structure des 
donnees en Applesoft et notam- 
ment sur celle des nombres flot- 
tants: 

• repondre aux besoins des scientifi- 
ques en leur fournissant un pro- 
gramme de formatage de nom- 
bres. 

Les themes suivants seront abordes : 

• l'accumulateur flottant: 

• representation de flottants en me- 
moire: 

• comment trouver une constante 
en ROM 7 

• formatage de nombres scientifi- 
ques. 

11 sera pratique d'utiliser le Moniteur 
Etendu de Thierry Le Tallec dans 
Pom's 8 et de prendre connaissance 
de 1' article de Philippe Francois sur 
les programmes relogeables dans 
Pom's 7. 

Accumulateur flottant : 
FAC 

De meme que le microprocesseur 
6502 dispose d'un accumulateur 8 
bits sur lequel il effectue les opera- 
tions essentielles d'addition et de 
soustraction. l'Applesoft comporte 
une zone memoire analogue pour les 
nombres flottants qu'il manipule : 
l'accumulateur flottant baptise FAC. 

FAC est une zone de 6 octets s'eten- 
dant des adresses $9D a $A2. dans 
laquelle l'Applesoft stocke les nom- 
bres flottants (par opposition aux 
nombres entiers). sur lesquels il rea- 
lise des operations evoluees telles 
que : 

• les quatre operations : + — x 

• des fonctions comme : SIN COS 
TAN EXP LOG ... 

• des transformations comme : INT 
ABS ... 

Pour comprendre sous quelle forme 
les flottants y sont enregistres. il suffit 
de se souvenir comment - en nota- 
tion decimale - nous decomposons 
les nombres. Tout nombre N s'ecrit : 
N = M * 10"C ou M designe la 
MANTISSE. avec 0<= M! <1. et C 
designe la CARACTERIST1QUE (ou 
exposant). 

En binaire. on peut tout naturelle- 
ment adopter les memes disposi- 
tions : 

Exemple 1 : N = 7.5. soit 0.75 * 



10 

En decimal. N = 0.75 * 10 1 
Remarquons que N = 15 * 2 — 1. 
Nous multiplions N par 2 jusqu'a ob- 
tenir un nombre entier. Remarquons 
que cette operation n'est pas tou- 
jours possible, comme on peut le 
constater dans I'exemple 2. 
En binaire. N = 1111 * 10" -1 
(15 en base 10 = 1111 en base 2) 
(2 en base 10 = 10 en base 2) 
Decalons : N = 0.1111 * 10' 11 
(3 en base 10 = 11 en base 2) 
soit en hexa : N = 0.F * 2 3 

L'accumulateur FAC est une zone de 

6 octets dans laquelle les nombres 
sont codes de la facon suivante : 

'OMl MM M S 

C : caracteristique majoree de $80 
Ml M M M : mantisse sur 4 octets 
S. 1' octet d'extension. caracterise le 
signe du nombre : 

- si N > alors S est Ml avec le bit 

7 a zero 

- si N < alors S est egal a Ml 
notons que si N = alors C=0 

Pour notre exemple. 7.5 sera done 
code : 

83 F0 00 00 00 70 

7.5 a pour mantisse 0.F0 00 00 00 

et pour exposant $3. 

En effet. il est positif. done S = $F0 

avec le bit 7 (le plus fort) a zero, or 

$F0 = 1111 0000. done S = 0111 

000 soit $70. 

Exemple 2 (plus complexe) : soit a 
coder N = 7 4 

On multiplie par 2. soit N = 14.8 * 
2 -1 

Comme ce n'est pas un entier. re- 
commencons avec : N = 29 6 * 
2"-2 

Cela ne convient toujours pas. Jus- 
qu'ou faut-il done repeter le double- 
ment ? Eh bien. nous savons que la 
mantisse (exprimee en binaire) est 
codee sur les quatre octets Ml M M 
M du FAC. soit 4*8=32 bits. La 
mantisse (ou du moins sa partie deci- 
male) ne peut done exceder 2 32 = 
4.294.967.296. II ne faut par conse- 
quent pas poursuivre la multiplication 
par 2 au-dela de cette valeur. 
Ainsi. 7.4 = 3972844749 * 2" -29. 
Cette valeur de la mantisse est une 
valeur approchee car, derriere le der- 
nier 9. il y a encore une decimale. 
Ceci dit. l erreur est inferieure a 
2 -30. soit 9* 10' -10 (ce qui justi- 
fie les 10 chiffres significatifs de l'Ap- 
plesoft). 

II reste a coder la mantisse en bi- 
naire. ou plus simplement en hexa- 
decimal, grace a des divisions succes- 



sives par 16 : 

3 972 844 749 = 14*16 _ 7 + 
12*16 6 + 12*16"5 + 12*16"4 + 
12*16 3 + 12*16"2 + 12*16 + 13 
= $EC CC CC CD 
II faut decaler le point decimal de- 
vant la mantisse. soit une translation 
de 32 bits. La nouvelle caracteristi- 
que vaut done : -29 + 32 = 3. 

En conclusion : 

Caracteristique C = $80 + $03 = 

$83 

Mantisse Ml M M M = $EC CC CC 
CD 

Octet d'extension : on prend Ml = 
$EC = 1110 1100: comme N est 
positif, on supprime le bit numero 7 
(le plus fort). Done. S = 0110 1100 
soit S=$6C en hexadecimal. Ainsi. 
7.4 est code $83 EC CC CC CC CD 
6C dans le FAC (C Ml M M M S). 

On peut verifier cet etat de fait direc- 
tement en memoire: il faut pour cela 
charger le FAC avec la valeur de son 
choix. puis le consulter. 

Verification en memoire 

L' instruction Basic USR constitue 
une voie de passage entre l'Applesoft 
et le langage machine. Pour pouvoir 
l'utiliser. il faut preciser a 1' Apple 
l'adresse du programme en langage 
machine que 1'on desire appeler. 
Cette adresse (qui occupe 2 octets) 
doit etre ecrite dans les octets 
11=$B (octet faible de l'adresse) et 
12=$C (octet fort). 

Ainsi. pour une routine implantee en 
768=$300. on tapera POKE 11.0 
(adresse faible). puis POKE 12.3 
(adresse forte) et l'Apple "saura" 
qua la prochaine utilisation de USR. 
il devra executer la routine a 
l'adresse $300. 

Si I on ecrit Y=USR(X) ou X et Y 
sont des variables numeriques. X 
sera verse dans le FAC par l'Apple- 
soft de facon automatique avant 
l execution de la routine en langage 
machine. Si cette routine prend en 
charge le FAC. alors Y contiendra le 
resultat de ses calculs. 

Quant a nous, utilisons USR simple- 
ment pour voir comment l'Apple 
code les nombres dans le FAC. En 
$300. nous mettons un octet nul $0. 
qui est le code d'une interruption 
BRK stoppant toute procedure et 
donnant la main au moniteur : 
tapons POKE 768.0 a cette fin. 
Nous profitons alors de cette inter- 
ruption pour consulter directement le 
FAC en memoire vive. dans les 6 
octets de $9D a $A2. 
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Exemple 1 : codage de 7.5 en FAC. 

Taper B=7.5:A=B:PRINT USR(A) 
L' Apple s'interrompt comme prevu 
et l'asterisque indique le passage au 
mode moniteur. 

Taper 9D.A2 pour consulter FAC. La 
reponse : 

009D- 83 FO 00 
OOAO- 00 00 70 

confirme nos previsions. 

Pour retourner a 1' Applesoft, taper 

CTRL-C. 

Exemple 2 : codage de 7.4 en FAC. 

On reprend la procedure avec la va- 
leur 7.4 (apres avoir refait les 
POKEs). puis 9D.A2. et la reponse 
devient effectivement : 
009D- 83 EC CC 
OOAO- CC CD 6C 

Les flottants "packes" 

On peut reprocher au codage de flot- 
tant en FAC d'etre redondant; l'octet 
d'extension S contient en effet deux 
informations : le signe du nombre et 
la valeur de Ml. ce dernier est done 
surabondant. 

Par mesure d economie. les flottants 
en memoire ne seront done plus 
codes que sur 5 octets selon la confi- 
guration suivante. dans laquelle Ml 
est remplacee par S : 
CSMMM 

C'est la forme compactee. "packee". 

Ainsi, la valeur 7.4 est codee 83 EC 
CC CC CD 6C dans le FAC. mais 
on gagne un octet en memoire 
"standard" en la coda'nt : 83 6C CC 
CC CD. 

Echange entre FAC et la 
memoire 

Maintenant que les deux types de 
codage nous sont connus. il serait fa- 
cile de realiser un petit programme 
en langage machine effectuant la 
transition de Tun vers l'autre et reci- 
proquement. On imagine bien que 
1' Applesoft dispose deja de telles rou- 
tines : 

MOVMF EQU $EB2B 
MOVe Memory «- FAC 
qui convertit et transfere le FAC en 
zone memoire pointee par les regis- 
tres Y (octet fort) et X (octet faible). 
En retour, 1'accumulateur et le bit Z 
du registre d'etat refletent FACEXP 
(octet S de FAC). 

(traduit de "What's Where in the 
Apple ?" de F.Luebbert - Ed. Micro 
Inc.). 

On trouve evidemment la routine re- 
ciproque : 

MOVFM EQU $EAF9 : 

MOVe FAC <- Memory 

qui convertit et transfere vers FAC la 

memoire pointee par le registre Y 



(octet fort) et 1'accumulateur A (octet 
faible). 

Ces routines vont nous permettre de 
faire quelques exercices. 

Passons en mode moniteur : CALL 
-151 

Implantons le programme utilise par 
USR en $300 (00 03 aux adresses 
$B-$C) et en $300 : 

AO 03 LDY #$03 

l'octet fort de l'adresse du nombre 
est $03 

A2 10 LDX #S10 

l'octet faible de cette adresse est $10 
20 2B EB JSR SEB2B 

transfere le FAC (charge par USR) 
vers $310 

OO BRK 

interruption 

qui traduit FAC vers la zone de 5 
octets commencant en $310. 

Repassons en Basic par CTRL-C (et 
RETURN) et entrons : 

NEW 

10 INPUT A : PRINT USR (A) 
RUN 

Repondons : 7.5 (RETURN) au "?" 

Apres le BREAK *. on peut consulter 
la zone $310 par 310.314 
On obtient alors la reponse : 
83 70 00 00 00 

On peut effectuer cette operation 
pour les nombres 1. et 10. dont nous 
aurons besoin plus tard : 

1. est code 81 00 00 00 00 
10. est code 84 20 00 00 00 
0. est code 00 00 00 00 00 
PI 2 est code 81 49 OF DA A2 
(1.57079633) 

Comment trouver une 
constante flottante en 
ROM ? 

L'Applesoft a besoin de certaines 
constantes pour ses calculs : PI/2, 
Log(2) ... permettant de calculer 
toute fonction comme serie entiere. 

Le programme MONITEUR. OBJ du 
Moniteur Etendu (Pom's 8) nous 
permet la recherche de constantes, a 
condition d'en connaitre le codage. 
ce qui ne nous pose plus de pro- 
bleme. 

Chargeons le moniteur : BRUN MO- 
NITEUR. OBJ. 

La ROM s'etend de $CFFF a $FFFF. 
Pour la recherche d'une constante en 
ROM. il suffit de taper : 
CFFF.FFFF/C S M M M (RETURN) 

Le Moniteur Etendu donne l'adresse 
du premier octet s'il le trouve. On 
obtient ainsi les resultats suivants : 



TEN 

PI/2 



10. 

PI/2 



Efl50 
F066 



84 20 00 00 00 
81 49 OF Dft fl2 



Formatage de nombres 
en notation scientifique 

A titre d' exemple. nous allons ecrire 
une routine en assembleur permet- 
tant de formater les nombres en no- 
tation scientifique. 

Format choisi : il est fixe. 

Les nombres formates occuperont 
exactement 10 caracteres selon le 
format : 

sm.mmmErcc 

s = signe 

m.mmm = mantisse M telle que 
1<M<10 (4 chiffres significatifs dont 
3 decimales) 

E = signe d'exponentiation 
r = signe de caracteristique 
cc = caracteristique 

Ainsi, -124.57 s'ecrira 

-1.246E+02. 

Algorithme 

Le principe d'une telle routine est de 
transformer le nombre en chaine de 
caracteres. 

1) II faut d'abord initialiser la chatne 
a zero : 

CHAINE = "+0.000E+00" 

2) II faut ensuite determiner le signe 
du nombre et modifier si necessaire 
le premier caractere de CHAINE en 
consequence : 




ecrire CHAINE 




f 



<^ Retour"^ 



CHAINE 


-O.0OOE +00 


Nombre <- 


Valeur absolue 



MM VALEUR ADRESSE 



CODE 



OtC 1. E913 81 00 00 00 00 



3) Le calcul de la mantisse et de la 
caracteristique se conduisent simulta- 
nement. Si le nombre est superieur 
ou egal a 10. il faut le diviser par 10 
et incrementer la caracteristique. Si le 
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nombre est inferieur a 1. i! faut le 
multiplier par 10 et decrementer la 
caracteristique. La caracteristique est 
initialisee a zero. 



CARAC*0 




nombre <■ nombre/10 
i carac <■ carac +1 




nombre<-nombre x10 
carac <■ carac —1 



© 



4) Ne gardant que trois decimales. il 
faut arrondir : pour cela. on multiplie 
par 1000. on ajoute .5 (afin d'arron- 
dir et non tronquer), puis on divise 
par 1000. 

Exemple : n = 1.834627 
Arrondir : 1000 * n = 1834.627 
1000 * n + .5 = 1835.127 
Partie entiere = 1835 
Divisee par 1000 : 1.835 

Remarque : un probleme peut surve- 
nir dans le cas particulier ou 9.9995 
< n < 9.9999. En effet. l'arrondi 
donne alors 10. II faut done reforma- 
ter : 



nombre X 1000 



nombre + . 5 





© 







Conversion nombre / chaine 


\ 




Transfert dan 


s CHAINE 




1 


Conversion c a r a c t / c hai ne 




inserer 



5) On transforme NOMBRE en une 
chaine de caracteres. on la verse 
dans CHAINE : on transforme egale- 
ment CARACT en une chaine en 
prenant garde qu'elle comporte 3 ca- 
racteres. , y compris le signe. et on 
transfere dans CHAINE. II ne reste 
plus qua ecrire CHAINE. 



T ^ 


Transfert dans 


CHAINE j 


\ 


l 


Ecrire CHAINE 


X^" Retour 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 



* SCIENT.LIB 

* RELOGEABLE 

* » 

* FORMATAGE DE NOMBRES « 
» EN NOTATION SCIENTIF. * 

* » 



; E . R INGOT, LE 16/01/83 
ORG $1000 



Sous-programme Applesoft 

Variables : 

CHS : chaine recevant la chaine 

CA% : caracteristique 

NB : nombre a formater. puis man- 

tisse 

(voir le listing de SCIENT.APP) 

Routine en assembleur 
(DOS Tool Kit) 



:P0UR ASSEMBLAGE SEULEMENT 



;<1>-VARIABLES 



18 


CHAINE 


EQU 


S250 


; BUFFER 


19 


SIGMAN 


EQU 


CHAINE 


;SIGNE DE MANTISSE 


20 


MANTIS 


EQU 


CHAINE-1 


; MANTISSE 


21 


POINT 


EQU 


CHAINE+2 




22 


SYMBEX 


EQU 


CHAINE+6 


; SYMBOLE ' E ' 


23 


SIGEXP 


EQU 


CHAINE+7 


;SIGNE D'EXPOSANT 


24 


EXPOSA 


EQU 


CHAINE+8 


;EXPOSANT 


25 


FINCHA 


EQU 


CHAINE+10 




26 


EXPO 


EQU 


S260 


; CARACTERISTIQUE 


27 


FRESPC 


EQU 


S71 


;POINTEUR DE CHAINE 


28 


ONE 


EQU 


SE913 


; CONSTANTE FLOTTANTE 1. 


29 


TEN 


EQU 


SEA50 


; CONTIENT LE FLOTTANT 10. 



30 ; 

31 . 

32 ;<2> -ROUTINES ROM 

33 . 

34 ; 



35 


CHRGOT 


EQU 


SB7 


; N ' AVANCE 


PAS LE POINTEUR 


36 


CHRGET 


EQU 


SB1 


; CARACTERE DANS LE BASIC 


37 


FRMNUM 


EQU 


SDD67 


;FAC 


< = 


EXPRESSION 


38 


MULIO 


EQU 


SEA39 


;FAC 


< = 


FAC » 10 


39 


DIVIO 


EQU 


SEA55 


;FAC 


< = 


FAC / 10 


40 


SIGN 


EQU 


SEB82 


;A 


< = 


SIGNE (FAC) 


41 


ABS 


EQU 


SEBAF 


;FAC 


< = 


ABS (FAC) 
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Syntaxe 

Nous vous proposons d'appeler une 
routine formatant et editant les nom- 
bres. La syntaxe de la routine Apple- 
soft sera : 

CALL adr. nombre [;] 

adr = adresse decimale de la routine 

qui sera relogeable 

, = separateur 

nombre = argument a passer : cons- 
tante. expression, variable numerique 
[;] = specification optionnelle empe- 
chant le retour chariot apres edition 

On ne peut ecrire qu'un seul nombre 
avec un tel CALL. 

Commentaires sur le programme 

Lignes 78-79 : CHRGET saisit la vir- 
gule dans le texte Applesoft et incre- 
mente le pointeur TXTPTR. 
FRMNUM transforme 1" expression 
numerique suivant la virgule et la 
transfere dans FAC. 

Lignes 98-100: STROUT ecrit une 
chaine de caracteres pointee par les 
registres Y(MSB) et A(LSB) : la 
chaine doit se terminer par un octet 
nul - ne pas confondre avec un octet 
contenant "0" soit $30. 

Lignes 102-108 : CHRGOT prend le 
caractere dans le texte Applesoft, 
mais sans incrementer le pointeur 
TXTPTR. Si le caractere n'est pas 
on envoie un retour chariot. 
Dans le cas contraire. on le passe 
grace a CHRGET et on revient a 
1' Applesoft. 

Lignes 116-134: calcul de la man- 
tisse et de la caracteristique EXPO. 
FCOMP compare FAC au nombre 
pointe par Y et A a la sortie. 
A contient si FAC = MEM 
A contient 1 si FAC > MEM 
A contient FF si FAC < MEM 

Lignes 138-150: procedure d'ar- 
rondi - la routine FADDH aioute 0.5 
a FAC. 

Lignes 154-163 : transforme le FAC 
en chaine grace a FOUT. La chaine 
est pointee par Y et A a la sortie 
(normalement. c'est $100). On recu- 
pere cette adresse en FRESPC (page 
0). ce qui nous permet de la transfe- 
rer vers MANTIS. On controle deux 
choses : 

- arret du transfert si la chaine se ter- 
mine par 0: 

- arret du transfert si 5 caracteres au 
maximum sont transferes (ce qui 
nous met a I'abri des erreurs de cal- 
cul). 

Lignes 167-174, 175-182, 183-189: 
dans chacun de ces trois blocs, on 
ecrit le signe de la caracteristique. on 
transforme la caracteristique en 
chaine et on la transfere vers EX- 
POSA: si l'exposant ne comporte 
qu'un chiffre. on insere un "0" par 
devant. 



AO 


TTI n AT 
r L.UA I 


tuu 


SC.B33 


;FAC <= A 


4o 


T WT 
1 N 1 


tuu 


SEC23 








EOU 


SE7A0 


;FAC <= FAC * 1/2 
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f COKP 


EQU 


SEBB2 


; COMPARE FAC AVEC (Y,A) 


A C 


FOUT 


EQU 


SED34 


; CHAINE CARACTERES <= FAC 


A T 

4 / 


bl ROUT 


EQU 


SDB3A 


; ECRIT UNE CHAINE 


48 


CROUT 


EQU 


SFD8E 


; RETOUR CHARIOT 


49 


RETURN 


EQU 


SFF58 


;V0IR POM'S 7 PAGES 27-28 


50 


r 








51 











52 
53 
54 
55 



: <3> -PROGRAMME DE FORMATAGE 



; INITIALISATION EXPOSANT 



56 










57 




LDA 


#0 




58 




STA 


EXPO 




59 




STA 


FINCHA 




60 










61 


INITIALISATION DE LA 


CHAINE A ZERO 


62 


r 








63 




LDX 


#9 




64 




LDA 


#'0' 




65 


ZERO 


STA 


CHAINE, X 




66 




DEX 






67 




BNE 


ZERO 




68 




LDA 


#'*' 




69 




STA 


SIGMAN 




70 




STA 


SIGEXP 




71 




LDA 


#'E' 




"70 




STA 


SYMBEX 




73 




LDA 


#' . ' 




74 




STA 


POINT 




—1 C 

/O 










76 


;SAISIE 


NOMBRE A FORMATER 


77 










7 A 
/ o 




JSR 


CHRGET 


; PASSE LA VIRGULE 


79 




JSR 


FRMNUM 


;L' EXPRESSION PASSE EN FAC 


80 










81 


;SIGNE 


ET VALEUR ABSOLUE 


82 


r 








83 




JSR 


SIGN 


;A <= SIGNE (FAC) 


84 




BEC 


ECRIT 


;SI FAC = 0, TERMINE 


85 










86 




CMP 


#1 


;FAC POSITIF ? 


87 




BEQ 


ABSO 


;OUI ! 


88 




LDA 


#' -' 


;N0N !,0N CHANGE LE SIGNE 


89 




STA 


SIGMAN 


;C0NTENU EN SIGMAN 


90 










91 




JSR 


ABS 


;FAC <= ABS (FAC) 


92 


ABSO 


CLV 




; PROGRAMME RELOGEABLE 


93 




JSR 


RETURN 


;VOIR POM' 7 


94 




BVC 


FORMAT 


;PSEUD0 JSR FORMAT 



95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 



; ECRITURE DU NOMBRE FORMATE 



ECRIT 



RETOUR 



LDY 
LDA 
JSR 

JSR 
CMP 
BEQ 
JSR 
RTS 
JSR 
RTS 



#<CHAINE 
#>CHAINE 
STROUT 

CHRGOT 
#S3B 
RETOUR 
CROUT 

CHRGET 



;(Y,A) POINTENT 
;VERS CHAINE 
; ECRIT CHAINE 

; PREND LE CARACTERE SUIVANT 
;EST-CE LE CARACTERE ";" ? 
;0UI ! 

;N0N! RETOUR CHARIOT 
; SAUTE CE";" 



; FORMATAGE DE LA VALEUR ABSOLUE 



FORMAT 



TENFAC 



TSX 
DEX 
DEX 
TXS 
LDY 



#<TEN 



;CF. POM'S 7 



; COMPARE FAC A 10. 
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Etude comparative des 
routines 

Place me mo ire 

Routine Applesoft compactee (sans 
REM) numerotee a partir de 100 de 
10 en 10. 

- programme = 350 octets 

- descripteurs 3 variables = 21 octets 

- chame = 10 octets 

- TOTAL 

= 381 octets 

Routine assembleur $FA = 244 
octets, soit un gain de 36 % en place 
memoire. 

Mesures de rapidite 

Exemple 1 : 

FOR I = 1 TO 1000: NB = I : 
NEXT 

Temps d' execution : 3 secondes. 
Exemple 2 : 

FOR I = 1 TO 1000: NB = I : 

GOSUB 100 : NEXT 

Temps d'execution : 144 secondes. 

Exemple 3 : 

FOR I = 1 TO 1000 : CAI_;_ 4096.1 : 
NEXT 

Temps d'execution : 60 secondes. 
Temps unitaires : 

routine Applesoft: 144-3:1000 = 
141 ms 

routine assembleur: 60-3:1000 = 
57 ms. soit un gain de temps de 
60%. 

Conclusion 

La pauvrete de 1' Applesoft amene re- 
gulierement le programmeur a ecrire 
de petites routines palliant ses defi- 
ciences naturelles. Deux voies s'of- 
frent a lui : le Basic et le langage ma- 
chine. Le Basic est simple a ecrire 
mais lent, gourmand en place me- 
moire et incapable de gerer des va- 
riables locales. Le langage machine 
est beaucoup plus souple d' utilisation 
mais demande un temps de pro- 
grammation plus important et un edi- 
teur-assembleur. Neanmoins. le pre- 
sent article montre que 1' utilisation 
intensive des routines presentes en 
ROM facilite grandement la tache du 
programmeur: une bonne documen- 
tation s'impose alors. Enfin. la consti- 
tution d'une bibliotheque d'utilitaires. 
que I on charge selon les besoins. est 
bien plus simple a realiser en langage 
machine (pourvu que les routines 
soient relogeables) grace a BLOAD. 
qu'en Basic ou il faut jongler avec les 
HOLD. MERGE et compagnie. Un 
premier element de cette bibliothe- 
que (LIBrary en anglais, d'ou le nom 
du code objet) est propose au- 
jourd'hui. Chacun peut y apporter sa 
pierre ... _ 
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I 1 "7 

II / 


i r> a 


#>TEN 




118 


JSR 


FCOMP 




119 


CMP 


#SFF 


;A < 10. ? 


120 


BEQ 


ONEFAC 


;OUI ! 


121 


JSR 


DIVIO 


;FAC <- FAC / 10. 


1 22 


INC 


EXPO 


;N0N! INCREMENTE L'EXPOSANT 


1 zs 


LLC 






124 


BCC 


TENFAC 


;SAUT INCONDITIONNEL 


125 ; 









126 ONEFAC 


LDY 


#<ONE 


.•COMPARE FAC A 1. 


127 


LDA 


#>0NE 




128 


JSR 


FCOMP 




129 


CMP 


#SFF 


•k < 1. ? 


130 


BNE 


ARROND 


;NON! 


131 


JSR 


MULIO 


;FAC <- FAC » 10. 


132 


DEC 


EXPO 


;OUI! DECREMENTE L'EXPOSANT 


133 


CLC 






134 


BCC 


ONEFAC 


;SAUT INCONDITIONNEL 


135 ; 









136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 



; ARRONDI A TROIS DECIMALES 



ARROND 



JSR 


MULIO 


;3 MULTIPLICATIONS DE 


JSR 


MULIO 


;FAC PAR 10. 


JSR 


MULIO 




JSR 


FADDH 


;AJOUTE 1/2 A FAC 


JSR 


INT 


; PREND LA PARTIE ENTIERE 


JSR 


DIVIO 


;3 DIVISIONS DE 


JSR 


DIVIO 


;FAC PAR 10. 


JSR 


DIVIO 




LDY 


#<TEN 


;P0UR LE CAS 


LDA 


#>TEN 


;OU L'ON PASSERAIT 


JSR 


FCOMP 


; DE 9.9995 A 10 


BEQ 


TENFAC 


; CORRECTION 



; TRANSFERT MANTISSE DANS CHAINE 



154 




JSR 


FOUT 


; TRADUIT LA MANTISSE EN CHAINE 


155 




STY 


FRESPC+1 


; ADRESSE TRANSFEREE 


156 




STA 


FRESPC 


; EN FRESPC LIBRE 


157 




LDY 


#0 




158 


MOVMAN 


LDA 


(FRESPC) , 


Y ; TRANSFERT VERS CHAINE 


159 




BEQ 


CALEXP 


;CARACTERE NUL = FIN DE CHAINE 


160 




STA 


MANTIS, Y 




161 




INY 






162 




CPY 


#5 


;5 CARACTERES MAXI 


163 




BNE 


MOVMAN 




164 










165 


; TRANSFERT DE L'EXPOSANT 


166 










167 


CALEXP 


LDA 


EXPO 




168 




JSR 


FLOAT 


;FAC <= EXPO 


169 




JSR 


SIGN 


;A <= SIGNE DE L'EXPOSANT 


170 




CMP 


#SFF 


; NEGATIF ? 


171 




BNE 


ABSEXP 


; NON ! 


172 




LDA 


#' -' 


;0UIt, CHANGER LE SIGNE 


173 




STA 


SIGEXP 




174 




JSR 


ABS 




175 


ABSEXP 


JSR 


FOUT 


;EXP0SANT EN CARACTERES 


176 




STY 


FRESPC -"-l 




177 




STA 


FRESPC 


;POINTEUR 


178 




LDY 


#0 




179 


MOVEXP 


LDA 


(FRESPC) , 


Y 


180 




STA 


EXPOSA, Y 




181 




INY 






182 




CPY 


#2 




183 




BNE 


MOVEXP 




184 




CMP 


#0 


; CARACTERE NUL ? 


185 




BNE 


FINEXP 


; NON t 


186 




LDA 


EXPOSA 




187 




STA 


EXPOSA +1 




188 




LDA 


#'0' 




189 




STA 


EXPOSA 


;SINON, DECALAGE 


190 


FINEXP 


BIT 


RETURN 




191 




RTS 
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Programme SCIENT.OBJ 



1000- 


A9 


00 


8D 


60 


02 


8D 


5A 


02 


1008- 


A2 


09 


A9 


BO 


9D 


50 


02 


CA 


1010- 


DO 


FA 


A9 


AB 


8D 


50 


02 


8D 


1018- 


57 


02 


A9 


C5 


8D 


56 


02 


A9 


1020- 


AE 


8D 


52 


02 


20 


Bl 


00 


20 


1028- 


67 


DD 


20 


82 


EB 


FO 


12 


C9 


1030- 


01 


FO 


08 


A9 


AD 


8D 


50 


02 


1038- 


20 


AF 


EB 


B8 


20 


58 


FF 


50 


1040- 


16 


AO 


02 


A9 


50 


20 


3A 


DB 


1048- 


20 


B7 


00 


C9 


3B 


FO 


04 


20 


1050- 


8E 


FD 


60 


20 


Bl 


00 


60 


BA 


1058- 


CA 


CA 


9A 


AO 


EA 


A9 


50 


20 


1060- 


B2 


EB 


C9 


FF 


FO 


09 


20 


55 


1068- 


EA 


EE 


60 


02 


18 


90 


EC 


AO 



X >J / KJ 




A Q 

fly 


1 o 


OA 

2U 


o o 

t>2 




C9 


FF 


X *-* / O 


n a 

UKJ 


AQ 


OA 

2U 


OQ 
03 


hA 




bO 


A O 

02 


1 AftA- 


1 ft 
J. 45 


QA 


C A 


OA 




C A 

E.A 


20 


O Q 

39 


X UOO 


C A 


OA 


OQ 
3 


c a 
cfl 


O A 

20 


A A 

AO 


E7 


OA 

20 


1 AQA - 
X U3U 


OO 


CA 


OA 


tr tr 
DD 


E.A 


OA 

20 


JJ 


C A 

hA 


x C3© 


OA 


JJ 


C A 


flu 


C A 

fcA 


A Q 


DO 


OA 

20 


x unu 




CP 


C A 


D O 

B / 


OA 

20 


j4 


b. Jj 


84 


1 riio. 
XKJno 


T~> 


OZ3 


"7 "1 
IX 


flU 


A A 


r% 1 
bl 


71 


r 


1 ar a - 


Aft 


QQ 


Ji 


AO 


Uo 


i*"* A 

OQ 


/~\ cr 

Oo 


DO 




c«± 
r *± 




C A 


AO 


O A 
20 




ho 


20 


1 aaa - 


eo 


£B 


AQ 

<_ 3 


rr 

r r 


PtA 


A o 


A Q 

A9 


A T> 

AD 


X U^o 




=;o 
o / 


AO 


OA 


A C* 


CD 


20 


34 


1 aha - 


C.JJ 


ft*i 


/ z. 


ft^ 


/ 1 


A A 


A A 
OO 


Bl 


1 a rift - 

X KJU<J 


"71 




JO 


AO 


Oo 


oo 


A O 

02 


DO 


1 AC A — 


re 


AQ 


ou 


DO 


OB 


AD 


58 


02 


10E8- 


8D 


59 


02 


A9 


B0 


8D 


58 


02 


10F0- 


2C 


58 


FF 


60 











90 REM **«»»»*»»»«»**»»*»*«**»# 
92 REM « FORMATAGE DE N0MBRES « 
94 REM * SCIENTIFIQUES * 

96 REM * VERSION EN BASIC * 
98 REM »*»*»*»«»#»»»»*«*»»»»»*» 
100 CHS = ■•'■0.000E + 00" :CA?S = 
110 IF NB = THEN 210 

120 CHS = "+": IF NB < THEN CHS = "-": 

NB = ABS (NB) 
130 IF NB > = 10 THEN NB = NB / 10:CA* 

= CA--S + l: GOTO 130 
140 IF NB < 1 THEN NB = NB » 10:CA54 = C 

A% - 1 : GOTO 140 
150 NB = INT (NB « 1000 * .5) 
160 IF NB = 10000 THEN NB = 1000:CA?< = 

CA% * 1 

170 CHS = CHS * LEFTS ( STRS (NB),1) * 
"." * RIGHTS ( STRS (NB).3) * "E 

+ " 

180 IF CA% < THEN CA* = ABS (CA?-s):CH 
S = LEFTS (CHS, 7) * "-" 

190 IF LEN ( STRS (CA%)) = 1 THEN CHS 
= CHS ■<- "0" 

200 CHS = CHS * STRS (CA*):NB = FRE (0 
) 

210 PRINT CHS: RETURN 



10 REM »«» PROGRAMME SCIENT . DEM »*» 

20 PRINT CHRS ( 4 > "BLOADSCI ENT . LIB" 
30 GOTO 1000 

40 VTAB 20: PRINT "TAPER UNE T0UCHE ET 
DECLENCHER LE CHR0N0" : WAIT - 16 
384,128: POKE - 16368,0: RETURN 

90 REM 

*«* FORMATAGE «*« 

100 CHS = "*0.000E*00" :CA?4 = 
110 IF NB = THEN 210 

120 CHS = "+": IF NB < THEN CHS = "-": 

NB = ABS (NB) 
130 IF NB > = 10 THEN NB = NB / 10:CA* 

= CA* * l: GOTO 130 
140 IF NB < 1 THEN NB = NB » 10:CA* = C 

A-4 - l: GOTO 140 
150 NB = INT (NB « 1000 ♦ .5) 
160 IF NB = 10000 THEN NB = 1000:CA% = 



CA* ♦ 1 

170 CHS = CHS * LEFTS ( STRS (NB),1) * 
"." + RIGHTS ( STRS (NB),3) * "E 
f •■ 

180 IF CA* < THEN CA-'< = ABS (CA*):CH 
S = LEFTS (CHS, 7) - "-" 

190 IF LEN ( STRS (CA*)) = 1 THEN CHS 
= CHS + "O" 

200 CHS = CHS * STRS (CA*):NB = FRE (0 
) 

210 PRINT CHS: RETURN 
990 REM 

*«« PROG.PPAL **» 
1000 TEXT : HOME 

1005 PRINT "CHRONOMETRAGE COMPARATIF 
DES VERSIONS 

BASIC ET LANG AGE -MACHINE 
DE LA ROUTINE 
DE FORMATAGE 

1010 PRINT "<1>- BOUCLES A VIDE 
<2>- BOUCLES BASIC 
<3>- BOUCLES LANGAGE MACHINE 
<4>- FIN" 

1020 GET AS:A = VAL (AS): IF A < 1 OR 

A > 4 THEN 1020 
1025 IF A = 4 THEN END 

1030 GOSUB 40: ON A GOSUB 1100,1200,130 



1040 GOTO 1000 
1090 REM 

- BOUCLES VIDES - 

1100 FOR I = 1 TO 1000: NEXT I: PRINT 

CHRS (7): RETURN 
1190 REM 

- BOUCLES BASIC - 

1200 FOR I = 1 TO 1000 : NB = I: GOSUB 10 
0: NEXT I: PRINT CHRS (7): RETUR 
N 

1290 REM 

- BOUCLES MACHINE - 

1300 SCIENT = 4096: FOR I = 1 TO 1000: C 
ALL SCIENT, I: NEXT I : PRINT CHRS 
(7) : RETURN 
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votre nouvelle 
bibliotheque Apple 





Macintosh 





MacPaint 






Adami, 



c ««enQtha n 




Seiectionne par Apple 
et Microsoft 



pour decouvrir 

MacPaint 
et Multiplan 

surle 
fabuleux Macintosh 

Un livrequi vous permettra d'entrer de plain-pied dans ces 
deux logiciels en decouvrant les infinies possibility du 
Macintosh. 

1C0556 89,00 F 

Ecrivons un programme pour Apple 

Pour vous amuser en apprenant la programmation sur un micro - 
ordinateur qui semble dote de pouvoirs magiques. Vous apprendrez 
a lui donner des ordres en BASIC et toutes sortes d 'instructions. 
Vous pourrez vous en servir pour dessiner. Vous le comprendrez 
et vous saurez le faire fonctionner en ouvrant ce livre. 



1C0544 



99.00 F 



Vous et 1 ordinateur Apple 

Un livre pour tous ceux qui veulent connaitre 1 "APPLE et s'en faire 
un ami. 

33 lemons pour apprendre a programmer en BASIC, chaque lecon 
est illustree de commentaires. d 'explications, de programmes et 
d'exercices complementaires. 

1C0542 129 ,00F 

Le Logo sur Apple 

Un livre pour faire l'apprentissage de LOGO, un moyen 
d'expression tres puissant. D'une faqon tres vivante, ^<$* 
ce livre explique les etapes a suivre pour concevoir^* 
et realiser toutes sortes de projets... a partir de 
la tortue LOGO, ce celebre petit animal ^ 
cybernetique qui se deplace sur l'ecran ^ 
en laissant une trace derriere lui. <>° 
1C0543 129 ,00F ^ 
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Garantissez 
votre succes 
Professionnel 



Oui, vous serez assures d'enri- 
chir votre savoir-faire « micro- 
informatique» indispensable au- 
jourd'hui a la vie professionnelle 
en suivant les conferences de 
MICRO-EXPO. 

Du 22 au 26 mai, dans le cadre 
de ce 9° Congres Exposition, a Pa- 
ris au Palais des Congres, Porte 
Maillot, pour 100F seulement 
vous aurez acces a 40 heures de 
conferences sur : 

Mardi 22 mai : Choisirson mi- 
cro ou cequ'il fautsavoir avantde 
I'acheter; Pionniers US. 

Mercredi 23 mai : Les bases de 
donnees et leur utilisation (comp- 
tabilite des PME et PMI sur micro 
avec dBASE 2) ; Un micro-ordina- 
teur, a quoi ca sert? VisiOn; 
Initiation au langage Basic; 
Pionniers France. 

Jeudi 24 mai : Informatique et 
Telematique a la ferme organisee 
par I'lSAB; La micro dans I'offi- 
cine; La micro et les medecins; 
Gestion financiere avec un ta- 



bleur electronique; Un micro-or- 
dinateur, ca s'entretient; La pro- 
grammation structuree (Pascal et 
Modula II); MS WIN; Initiation 
au langage ADA. 

Vendredi 25 mai : Les enjeux 
du contrat informatique; Micro et 
ordinateur personnel : les postes 
de travail de demain; Decision- 
nel graphique, representation, 
communication d'analyse et de 
resultats; Comprendre la telema- 
tique. 

Samedi26mai : choisirson mi- 
cro ou cequ'il fautsavoir avantde 
I'acheter; Introduction aux mi- 
croprocesseurs. 

Participez a ces conferences, 
vous garantirez votre succes pro- 
fessionnel etdeviendrez I'interlo- 
cuteur recherche a plus d'un titre. 



Hi!! = Hill 

i l i ••: :•:••» " 



expo : 



COUPON'-RtPONSt A RFTOURNFR A SYBEX : 6-8. impasse du Cure ■ 
75018 PARIS, ou a deposerdansun magasm purtani I'arfkta MICRO-EXPO. 
Olui-ci est voire litre He participation au tirage au sort du voyage a gagnei 
pour SHiton Valley qur aura lieu en presence de M,iilrc P. CHAlt. Huissier a 
Paiis. MetCi de rn'adresser : 

3 une entree gratuitc ci le programme dciaille des t onfference*. 
J un passeport valeur 100 F me donnant droit a Centres permanente, au 
Ruide de la micro, el de suivre toutes les conference*. 

NOM 

Prcoom 

Societe . 

N° Rui- 

I ode postal — Ville 

A< Civile de I'entreprise 

Fonction 

( i-ioini cheque de IO0 F. 

po 
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Un mois avec le Macintosh 

Herve Thiriez 



Cela fait maintenant environ un mois 
que j'utilise regulierement le Macin- 
tosh, avec en fait trois programmes 
seulement : MacPaint. MacWrite et 
Multiplan. sur un appareil en version 
U.S. J'ai eu 1' occasion de le montrer 
a des amis, a des etudiants, a des 
cadres et a des dirigeants d'entre- 
prise. Le plus frappant est que, quel 
que soit mon interlocuteur, chacun 
aurait bien voulu en avoir un. On 
comprend pourquoi les americains. 
malgre l'usine super-roborjsee de 
Fremont, n'arrivent pas a satisfaire la 
demande. II est question que la pro- 
chaine publicity exploite le theme 
"On savait qu'on en vendrait un mil- 
lion, mais pas en deux semaines ..." 
Ceci dit, nous faisons un peu les frais 
de cette reussite. puisqu'il faudra at- 
tendre le mois de juin pour pouvoir 
en acheter un en France. 

La souris 

Tout d'abord quelque peu sceptique 
quant a l'interet pratique de la souris. 
je dois avouer qu'elle m'a convaincu. 
On s'habitue tres vite au confort 
qu'elle apporte, et cela devient d'au- 
tant plus frustrant d'obtenir ensuite 
sur son brave Apple He le message 
"SYNTAX ERROR" parce qu'on a 
tape trop vite "CQTQLOG" ! La 
souris est agreable car elle permet 
une selection extremement rapide 
d'options dans un menu, mais aussi 
parce que les logiciels ont ete concus 
pour en tirer parti. Ainsi. toutes les 
instructions du "DOS", tout ce qui 
revient a demander un catalogue, lire 
un fichier, le sauvegarder. executer 
un programme, tout cela s'obtient 
exactement de la meme facon avec 
tous les logiciels toumant sur Macin- 
tosh. On se demande si cela a en- 
core un sens de realiser pour ces lo- 
giciels des documentations de plus 
de 10 pages. Cest vraiment tres 
agreable de voir tous les logiciels uti- 
liser le meme vocabulaire, la meme 
syntaxe (si on peut encore parler de 
syntaxe. tellement c'est simple). 

En quoi le Macintosh change-t-il la 
fagon de travailler sur des logiciels 
specifiques tels que le traitement de 
texte ou un tableur ? 

MacWrite 

Avec MacWrite, on peut realiser des 
textes impossibles a obtenir avec un 



autre micro-ordinateur (a part Lisa). 
Parvenir a sortir un text,e en justifica- 
tion totale avec, dans une meme 
ligne, des polices et des corps (tallies) 
de caracteres differents, pouvoir en 
outre imprimer tel quel ce qu'on voit 
a l'ecran, cela tient du miracle. Bien 
entendu, contrairement a ce que Ton 
voit meme sur certains programmes 
de traitement de texte implantes sur 
de gros ordinateurs, on ne perd pas 
la justification avec les tremas, ou les 
accents circonflexes. 

Autre particularity originale de 
MacWrite : la possibility de recuperer 
n'importe quel texte, dessin ou ta- 
bleau provenant d'un autre logiciel 
pour l'inserer dans le texte. On peut 
meme deformer a loisir chacune de 
ces insertions, en les tirant vers le 
bas, vers la droite, ... comme si elles 
etaient en caoutchouc. 

Seul inconvenient, releve d'ailleurs 
par Daniel Garric dans son article 
(Pom's 11), la taille relativement res- 
treint'e (8 pages) du fichier maximal 
actuellement entrable sous MacWrite. 
Mais cela devrait s'ameliorer avec 
('extension de la memoire centrale 
au-dela des 128K de RAM actuels 
(en plus des 64K de ROM). 

Multiplan 

Par rapport a Multiplan sur Apple //e, 
on remarquera les originalir.es : possi- 
bility d' imprimer un tableau simulta- 
nement au travail, impression de tra- 
vers pour les tableaux tres larges 
(aucun probleme, puisque l'lmage- 
Writer est une imprimante graphi- 
que). Sur le plan pratique, on cons- 
tate un grand gain de temps pour les 
depiacements dans le tableau (a 
l'aide des curseurs horizontal et verti- 
cal). II devient enfantin de modifier la 
largeur d'une colonne et de la mettre 
juste a la bonne dimension, ce qui 
demande normalement des tatonne- 
ments penibles sur tout autre mate- 
riel. II n'est plus necessaire de feuille- 
ter la documentation pour retrouver 
le nom exact ou la syntaxe d'une 
fonction donnee : on fait rapidement 
defiler les noms de fonctions. On 
peut definir une largeur de colonne 
nulle, ce qui evite enfin ces dange- 
reux "Mouvemente" auquel on etait 
oblige d'avoir recours pour bien pre- 
senter certains tableaux. Et, finale- 
ment, la recuperation de tout ou par- 



tie d'un tableau pour insertion dans 
un texte s'effectue sans douleur. 

II existe aussi un mode "entree de 
donnees", dans lequel la grille 
lignes/colonnes n'est plus visible, et 
ou les donnees a entrer sont repre- 
sentees par des pointilles. Cela reduit 
le risque d'erreur. A ce mode est as- 
socie une possibility de protection 
par un mot de passe : les cellules 
protegees ne peuvent alors etre mo- 
difiees ni meme consultees. 

MacPaint 

Faut-il encore decrire MacPaint qui 
est probablement le plus montre de 
tous les logiciels car il est "bluffant". 
Je le trouve excellent, mais j'estime 
cependant les performances obte- 
nues avec MacWrite (et, a moindre 
titre, avec Multiplan) tout aussi sur- 
prenantes. 

Les outils de 
developpement 

Ce n'est pas le moment d'oublier 
1' excellent Basic Microsoft du Macin- 
tosh, d'autant plus puisssant qu'il a 
acces a toutes les instructions propres 
au Macintosh et relatives a la gestion 
de la souris, des ecrans et des 
menus. Le Macinstosh Pascal, inter- 
prete, avec la possibility de faire du 
pas a pas et de voir le programme 
sur une partie de l'ecran et l'execu- 
tion se realiser a cote du listage. Et 
aussi l'assembleur 68000, Logo et 
Prolog. II y a de quoi faire ! 

Les autres logiciels 

Chart (graphiques) est deja sorti, 
pour etre utilise en relation avec Mul- 
tiplan ou Microsoft File. Parmi les ce- 
lebrites, on attend PFS. Lotus 1-2-3, 
Microsoft Word, CX Base 200, 
Omnis... Sans oublier bien entenu les 
autres produits "naturels" MacTerm 
(communication), MacDraw et Mac- 
Project. Steven Jobs prevoit que 500 
logiciels sur Macintosh seront dispo- 
nibles avant la fin de l'annee. Pour 
sa part, Bill Gates, le patron et fon- 
dateur de Microsoft (un gamin, lui 
aussi), s'attend a faire en 1985 la 
moitie de son chiffre d'affaires, pour- 
tant impressionnant, avec des pro- 
duits sur Macintosh. 
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La decouverte de FApple lie 

Guy Mathieu 



A l'invitation d' Apple, j'ai eu le plaisir 
de visiter auec un groupe de journa- 
listes les installations Apple en Irlande 
et de decouvrir le nouveau-ne de la 
famille, le Ac. Tout cela en tant que 
representant de Pom's et dans d'ex- 
cellentes conditions d'organisation. 
Bravo, Apple ! 

Le lie est petit (6.35 * 30,48 *, 
29.21 en cms.), pas bien lourd (3,4 
kgs) et vous sera vendu dans une 
botte en carton jetable. Ne croyez 
quand meme pas qu'il se suffit a lui- 
meme. L'alimentation (12 volts a 
l'entree de la machine) est un boitier 
separe inclus dans le « paquet ». 
Notez toutefois que rien ne vous em- 
peche de vous brancher sur l'allume- 
cigare de votre voiture. Une batterie 
faite sur mesure est enfin en prepara- 
tion chez Apple. 

II vous faudra bien sur un ecran. 
Rien a voir avec celui du grand frere 
Macintosh. Ses parents ont sorti en 
son honneur un moniteur compact 
9 pouces de tres bonne definition. 
Vous pouvez aussi utiliser directe- 
ment votre televiseur pour peu qu'il 
accepte une prise Peritel. Un televi- 
seur Thomson, nouveau. compact lui 
aussi et fonctionnant sous 12 volts, 
presente de meme bien des avanta- 
ges. En preparation aussi. un ecran 
plat de 24 lignes et 80 colonnes (fin 
84 ?) ainsi qu'un moniteur couleur 
d'excellente definition. 

A l'interieur du He (attention, vous 
perdez le benefice de la garantie si 
vous l'ouvrez — tant pis pour les bri- 
coleurs), 128K de RAM (le Basic Ap- 
plesoft, complete par des instructions 
« souris ». se trouve dans les 16K de 
ROM). En standard. 80 colonnes, ou 
40 obtenables par une astuce (le 
contraire de l'Apple He). Un lecteur 
de 143K helas integre (bon point 
pour la portability, mauvais point 
pour la maintenance). Un mode 
haute resolution simple de 80*192 
en six couleurs. Et un mode super- 
resolution de 560*192 en 16 cou- 
leurs. Le microprocesseur : un 
65C02 fonctionnant a 1 MHz. et 
possedant 27 instructions internes de 
plus que le 6502. 

Au-dessus du lie, un clavier bien des- 
sine. mais sans bloc numerique. en 
Azerty pour la version francaise. mais 
pouvant simuler le Qwerty. Tiens, le 
« Shift Lock » verrouille aussi les chif- 
fres ! On peut aussi regler le volume 
du haut-parleur. et meme brancher 
un casque ou un haut-parleur ex- 
terne. 



Derriere le He, un lot de connec- 
teurs : RS232 (imprimante 9600 
bauds), connecteur pour second lec- 
teur de disquettes (et pas plus...), 
prise video standard et prise RVB 
Chat Mauve. RS232 (modem 300 
bauds), prise a 9 broches pour man- 
che a balai (joystick), manettes 
(paddles) ou souris. Pas de disque 
dur envisage, mais peut-etre un jour 
des disquettes 3.5 pouces comme 
pour le Macintosh. Remarque : les 
lecteurs de disquettes du lie ne sont 
pas compatibles, n'en deplaise aux 
« cannibales ». 

A c6te de tout cela. plusieurs dis- 
quettes d'initiation. y compris une 
initiation au langage Logo. Le sys- 
teme d'exploitation normal est le 
ProDOS, mais on peut travailler en 
DOS 3.3 et en Pascal. 

Et le prix ? Pour 1' unite centrale et 
l'alimentation, le tout dans la boTte 
en carton. 12 900 F TTC. Environ 

2 000 FF pour I' ecran Apple ou 

3 900 FF pour le televiseur Thom- 
son. L'ecran plat reviendra a 5 a 
6 000 FF. Un peu plus de 3 000 FF 
pour le second lecteur. L'imprimante 
normale est 1' Image Writer. 



Du cote des logiciels. compatibilite a 
peu pres totale avec les logiciels de 
l'Apple He. Le logiciel selectionne 
I'option 80 ou 40 colonnes. Si cette 
selection n'est pas prevue dans le lo- 
giciel. un inverseur manuel permet 
d'y remedier. II semble que quelques 
problemes de compatibilite subsistent 
encore au niveau d'une interference 
avec I'option « souris », laquelle re- 
vient a environ 900 FF. Un nouveau 
venu. disponible en anglais, pro- 
gramme pour cet ete en francais, Ap- 
pleWorks : traitement de texte, ta- 
bleur et gestionnaire de fichiers. 
Deux fenetres. une dans laquelle on 
travaille, l'autre indiquant avec quoi 
on peut travailler et ce qu'on peut 
faire. Prix annonce : de 2 000 a 
2 500 FF. 



Autre nouvelle : Applebus accueillera 
bientot des modeles varies de micro- 
ordinateurs en mettant en commun 
une imprimante laser (50 000 FF) et 
un serveur disque de 20 a 70 mega- 
octets. Vitesse de transfert : 230 kilo- 
bauds. La connexion a 500 FF par 
appareil. Presentation au SICOB 
pour une disponibilite en fin 84. 
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PEEKs et POKEs en Pascal 

Jacques Pino 



Voici une petite application inspiree 
par le programme LINEFEED de la 
disquette APPLE3. Pour les irreducti- 
bles du Basic, il manquait en Pascal 
les instructions PEEK et POKE. Ce 
n'est plus qu'un mauvais souvenir 
aujourd'hui avec PEEPO. un pro- 
gramme introduisant la fonction 
PEEK et la procedure POKE. 

Le programme 

MOT represente une unite de me- 
moire Pascal, c'est-a-dire 16 bits sur 
deux octets. 

B1FACE est un enregistrement dont 
les deux champs ADRESSE et 
CONTENU sont confondus. 

ADRESSE est un entier sur 16 bits. 

CONTENU est un pointeur. c'est-a- 
dire une adresse sur 16 bits. Les 
deux champs sont a la meme place 
en memoire. 

Une reference a ADRESSE donne 
done acces a cette zone. Une refe- 
rence a CONTENU -> !0! donne 
acces au premier des deux octets du 
mot que pointe CONTENU. C'est 
done I'octet dont 1' adresse en me- 
moire est ADRESSE. 

Utilisation 

La derniere partie du programme il- 
lustre son utilisation. On commence 
par POKEr une ligne blanche et 
ecrire un texte. II suffit de choisir les 
adresses a partir de 1024 (memoire 
ecran texte) pour les PEEKs. pour 
constater que le PEEK fonctionne 
bien et retourne effectivement les 
codes ASCII de 1' ecran ligne par 
ligne: en 40 colonnes. tout se passe 
bien; en 80 colonnes. cela renvoit les 
codes correspondant a une colonne 
sur deux. 

Precaution 

L' instruction POKE est a utiliser avec 
prudence. Le systeme Pascal reside 
en memoire vive; il est done assez fa- 
cile a detruire. h 



Les recueils de Pom's 

Le Recueil N° 1 de Pom's etant 
epuise. nous avons decide de le 
retirer pour ne pas leser les pos- 
sesseurs recents d'Apple. Le pa- 
pier ayant fortement augmente 
depuis le tirage initial, le prix est 
passe a 130 FF. II en est de meme 
pour le Recueil N" 2 qui vient de 
sortir — veuillez nous pardonner 
l'erreur de la premiere annonce. 



PROGRAM PEEPO; 

VAR I,J,X,Y : INTEGER; 
FUNCTION PEEK (ADRS : INTEGER) : INTEGER; 
TYPE NOT = POCKED ARRAYC0..1] OF 0..255; 
BIFACE = RECORD CASE BOOLEflN OF 

TRUE : (ADRESSE : INTEGER); 
FALSE : (CONTENU : HOT) 
END; 

VflR PEEKPDKET : BIFftCE; 
BEGIN 

PEEKPOKET. ADRESSE := ADRS; 
PEEK := PEEKPOKET. CONTEND" [0] 
END; 

PROCEDURE POKE (ADRS, VAL : INTEGER) ; 

TYPE MOT = PACKED ARRAYEO. . 13 OF 0. . 255; 
BIFACE = RECORD CASE BOOLEAN OF 

TRUE : (ADRESSE : INTEGER); 
FALSE ! (CONTENU : HOT) 
END; 

VAR PEEKPOKET : BIFACE; 
BEGIN 

PEEKPOKET. ADRESSE := ADRS; 
PEEKPOKET. CONTEND* E03 := VAL 
END; 

(* Petits exetples d' utilisations de PEEK et POKE *) 

BEGIN PASE(OUTPDT); URITELN; URITELN; ( iiiiiiiiiiniiiiiuii ) 

FOR la=0 TO 39 DO POKE (1024+1, 32) ; (* ») LIGNE BLANCHE *) 

I l l lllllllllllllllUII ) 

URITELN ('UN PETIT DUMP'); URITELN (' '); URITELN; 

( niiiiiiiiimnini ) 

FOR l:= 1 TO 100 DO X:=PEEK<-16336); (* ») HADT-PARLEUR *) 

i HHHWHHHHHt ) 
REPEAT WHITE (' ADRESSE-) '); READLN(X); 

URITECNOMBRE D"0CTETS— ) '); READLN(Y); 

URITELN; 

IF Y=0 THEN BEGIN URITELN; URITELNCQUE PEEPO SOU AVEC VOLS '); 

EX IT (PROGRAM) 
END 
ELSE Y:=X+Y; 
REPEAT URITE(X:6,'!'); 

FOR J:=0 TO 7 DO URITE(PEEK(X+J)U); 
URITELN; X:=X+fl 
UNTIL X)Y; 

URITELN 
UNTIL FALSE 
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Disquettes de jeux 

Oliver Herz 



Pom's est heureux de pouvoir vous 
proposer deux disquettes de jeux au 
prix modique de 80 francs piece. Ces 
disquettes sont composees avec les 
contributions de quatre fideles lec- 
teurs. Ces jeux, dont l'interet n'a rien 

I a envier a I'ergonomie, sont varies, 
allant du labyrinthe au jeu d'adresse 
en passant par !e jeu de reflexion. Si- 
gnalons que. de plus, ces jeux sont 
ecrits en Applesoft (certains d'entre 
eux sont aussi fournis sous forme 
compilee). et qu'ils presentent done 
un grand interet didactique. 

Disquette de jeux A 

Labyrinthes - Jackpot - Paires - 
Awari - Chiffres en lettres - Multi - 
Pendu - Souris - Eve - Adam et Eve 
- Jeux a deux - Traclab 
Les sept premiers programmes vien- 
nent de Jacques Duma, les autres de 
Joel Lecoeur. 

Labyrinthes 

Ce petit programme est presente 
comme un jeu, mais son originalite 
principale reside dans i'algorithme de 
generation du labyrinthe. On voit se 
construire dans un rectangle un laby- 
rinthe aleatoire qui, de plus, possede 
une propriete remarquable : si Ton 
prend deux cases quelconques du 
rectangle, il n'y a qu'un seul chemin 
possible pour les relier. 

II suffit de suivre les instructions pour 
jouer. II y a deux versions du jeu. 
LABYRINTHE 2D en deux dimen- 
sions et 3D en trois dimensions. 
Avec la version 2D, on voit le plan 
du labyrinthe et il suffit de trouver la 
sortie le plus rapidement possible. Si 
Ton fait "?", la solution est fournie 
par le programme. 

Avec 3D, on est a I'interieur du laby- 
rinthe et seuls les couloirs sont visi- 
bles. Quelques indications d'orienta- 
tion sont fournies. Si Ton fait "+", 
on tourne sur place et le plan devient 
visible quelques secondes. Le "?", 
cette fois, termine le programme sans 
donner la solution. 

NDLR : Jacques Duma nous a 
fourni une troisieme version qui est 
la m&me que la version 2D. mais 
compilee avec Expediter II. Elle est 
done beaucoup plus rapide. Rien de 
vous empeche d'essayer de compiler 
d'autres jeux avec l'un des compila- 



teurs Applesoft existant sur le mar- 
che. 

Jackpot : il s'agit du jeu de casino, 
distrayant et utilisant au mieux les 
possibilites graphiques en basse reso- 
lution. 

Paires : aussi appele "jeu de la me- 
moire". II s'agit de retourner des 
paires de cartes. On peut jouer seul 
contre l'ordinateur (en reglant sa me- 
moire ...) ou a plusieurs. 

Awari : e'est une version particuliere 
d'un jeu africain classique. La strate- 
gic programmed est simple : a cha- 
que coup, 1'Apple prend le plus 
grand nombre de pions possible. 
Cette strategie est faible. on peut bat- 
tre le programme. Qui peut trouver 
mieux ? 

Chiffres en lettres : ce programme 
ecrit en lettres un nombre donne en 
chiffres. 

Multi : un jeu reecrit pour 1'Apple 
d'apres une idee trouvee dans un 
des premiers numeros de I'Ordina- 
teur Individuel. 

Le Pendu est un grand classique. 
Dans la version facile, on a dix coups 
pour trouver le mot inconnu; dans la 
version difficile, on n'a que cinq 
coups. Les mots sont choisis parmi 
333 d'une liste donnee en DATA 
qu'il est facile de modifier, a condi- 
tion de modifier aussi le nombre de 
mots de la liste. indique au debut de 
celle-ci. 

Souris, Eve, Adam et Eve, Jeux a 
deux, Traclab 

Ces programmes, bases sur les laby- 
rinthes, sont fort didactiques. Ce sont 
des jeux avec divers degres de diffi- 
cult, ainsi qu'un defi que les ama- 
teurs releveront sans doute (du 
moins le tenteront-ils). 
II y a en fait 4 programmes et 2 
tables de formes; et si votre Apple a 
deja ingurgite la disquette, vous pou- 
vez voir egalement une dizaine de 
"LABYRINTHE N" qui sont des 
images basse resolution de labyrin- 
thes servant d'exemples a la de- 
monstration, lis ont ete dessines avec 
le programme TRACLAB, assez 
court, simple a utiliser et surtout bien 
utile pour le defi que lance EVE. 



Le defi d'EVE est le suivant : « nul 
trace ne m'arrete, je trouve toujours 
la Pomme ». Le jeu vous permet de 
tracer avec TRACLAB un layrinthe et 
de voir EVE relever son defi : vous 
pouvez aussi la voir se faufiler a tra- 
vers l'un des 10 labyrinthes proposes 
sur la disquette. Dans la formule de 
jeu « Adam et Eve », vous vous trou- 
vez en concurrence avec EVE pour 
la course a la Pomme. La formule 
« Jeux a deux », enfin. autorise le jeu 
a deux joueurs. 

Disquette de jeux B 

Draw Poker - Quandary - Simon II - 
Poker 

Les trois premiers programmes ont 
ete realises par Marc Bideault. le der- 
nier par Alban Liger. 

Draw Poker est un jeu de hasard. 
base sur le principe des combinai- 
sons du poker. Heureusement pour 
lui. le joueur peut. a I'aide d'un para- 
metre, se donner plus ou moins de 
chance. On mise. on distribue une 
main de 5 cartes, on selectionne les 
cartes a remplacer (si necessaire). 
Quand on gagne, on peut jouer le 
gain a quitte ou double en pariant. 
apres avoir vu une carte tiree par 
l'ordinateur. sur le fait que la carte 
suivante (tiree elle aussi au hasard) 
sera plus petite ou plus grande. 

Quandary est un jeu de strategie 
dans lequel chaque adversaire pos- 
sede quatre pions dans un echiquier 
colore. En suivant certaines regies de 
displacement, il faut etre le premier a 
faire atteindre le bord oppose a l'un 
de ses pions. Ce jeu possede trois ni- 
veaux de jeu et est loin d'etre imbat- 
table. La couleur (ou de tres bons 
yeux) est indispensable. Une version 
compilee par Tasc est fournie sur la 
disquette, afin d'accelerer le proces- 
sus. 

Simon II. quant a lui. ne se pre- 
sente plus. II s'agit du celebre jeu de 
sequences sonores et colorees a me- 
moriser. 

Poker est un programme de jeu qui 
reproduit sur 1'Apple le jeu de Poker 
commercialise sous forme de jeu 
electronique de poche. II s'agit d'un 
poker tres rapide. sans changement 
de cartes. 



■ 
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Apple-Tell est un systeme qui fait d'un simple Apple 
(votre Apple de tousles jours) un minitel intelligent . 




Apple -Tell comprend : 

- une carte Modem incluant un decodeur Teletel 

- un loglciel d'Emulatlon de Terminal Mlnltel enrichl de trols ebloulssantes fonctions (celles qui 
faisalent le plus defaut Jusqu'a present sur votre mlnltel) : 

IMPRESSION : l'lmprlmante cle votre Apple est exploltee pour sortlr les copies papier dont vous 
avez besoln lorsque vous consultez un serveur. 

stockage : les dlsquettes ae votre Apple sont utlllsees pour enreglstrer les pages dont la 
consultation vous est necessalre : 

• au format Teletel (c'est-a-dlre telles que vous les avez regues), 

• en mode Texte pur (ASCII) pour exploitation locale ulterleure. 

automatisme : l'lntelligence ae votre Apple est moDlllsee pour accompllr l'lnterrogatlon 
automatlque du serveur que vous avez deslgne (appel telephonlque, orientation transpac, 
identification choix successifs), enreglstrer sur papier et/ou sur disque les donnees 
consul tees, puis pour tralter celles-ci, en les lncorporant dans votre application. 

(Les Procedures d'lnterrogatlon sont creees par l'utlllsateur, sans aucun 
langage oe programmation, grace au mode Apprentlssage d'Appie-Tell.) 

Evenement du dernier SICOB, salue par toute la presse, consacre Pomme d'Or 1983 par le Jury 
Apple, le systeme Apple-Tell marque une mutation decisive dans 1'evolutlon des techniques 
videotex en environnement professionnel : 

•point d'arret a la proliferation des materlels sur votre bureau (ef fet "mini-SicoD") 

■utilisation optimale des ressources dont vous disposez deja (dlsques, imprimante, loqlclels, etc.), 

•utilisation possible en mode Terminal autant qu'en mode Serveur (jusqu'a six portes), 

•enf in (et c'est sans doute le point le plus important) OONCTION entre le monoe exterleur et et les 
outils standard de votre Apple : incorporation de donnees dans Apple-writer, vislcaic, 
Multiplan, PFS, Quick-File, etc., et meme dans vos applications personnelles (comptabillte, suivi 
de commandes.ficnier ...) devlent possible. 

Caracterlstl oues oenerales : 'Sorties: video composite (N&B) et Peritel 

•Modem mult! modes : couleur. 
-1200/75, 1200 (half-duplex), 

600 (half-duplex), 300 (full-duplex), • compatible Apple 2 , Apple 2*, Apple 2e 

-standards CCITT et BELL (cette («8k,unedlsquette) 
caracterlstlque unique rend accessibles les • Enfichable dans n'lmporte quel slot llore de 
serveurs nord-amerlcalns, y compris par votre Apple 2. — 
reseau telepnonique commute). • Transparence totale vis-a-vis du systeme. 



©©G^C^I^MlQ) 



Norn 



HELLO Informatique - 1, rue de rietz 75010 PARIS 
Tel : (1) 523 30 34 - Telex : FLASH 210500F 

Societe 



Adresse complete 
Vllle 



Code Postal 



tel . 



O Sounalte recevoir une aocunientation sur le systeme Apple-Tell 
□ Commande systeme(s) Apple-Tell au prix de F. 5900 H.T. 



(reglement ci-joint par : Q Cheque bancaire O CCP) 
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VOUS PROGRAMMEZ SUR APPLE II 

VOUS VOULEZ GAGNER DU TEMPS 
VOUS CHERCHEZ A AMELIORER VOS CAPACITES 



nuttf I? 



LIGHT EST FAIT POUR VOUS 



Depose APP "France Logicicl" 



LIGHT est un ensemble de puissants logiciels 
d'aide a la programmation concu pour: 

- mieux gerer les fichiers et les disquettes 

mise a jour d'un catalogue general 
eta! des secteurs libres sur un disque 

- faciliter I'exploration et I'exploitation des disquettes 

acces direct, lecture, ecriture des secteurs 
transfert et recherche des sequences d'octets 

- accelerer I'analyse de vos programmes 

en Basic: recherche des tokens et des suites designees 
en Binaire: impression en disassemble 
de sequences d'octets; pistage en tout ou 
partie du deroulement 

POUR EN SAVOIR PLUS SUK LIGHT : 

M 




Apple es( une marque deposee 



adresse. 



demande une documentation complete, sans engagement de sa pari, aux Annees Nouvelles, 70, rue du (avelot, 75013 Paris. 



f MODEMS TELSAT 



1 



L' ACCES DE VOTRE MICRO ORDINATEUR AUX BASES DE DONNEES 

PAR LE RESEAU TELEPHONIQUE 





TELSAT 440 

Modem 300 bit/s full duplex 



TELSAT 640 

Modem 600/1200 bit/s full duplex 



Ces produits font partie de la gamme complete de modems, multiplexeurs et 
equipements de reseaux de transmission de donnees TELSAT distribues par 



international 69-7i,rue du chevaleret 75013 paris 

Tel. 58414 75 Telex 204120F 
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Imprimez les codes ESC 



de votre PLE 

Pascal Fontanier 



Vous connaissez la phrase tradition- 
nelle APRES avoir decouvert PLE (le 
Program Line Editor, voir Pom's nu- 
meros 1 et 7) : "Comment pouvais-je 
faire AVANT ?". Pour ma part, je me 
suis decouvert le besoin de plusieurs 
PLEs: un PLE standard, un PLE 
pour les programmes graphiques. un 
PLE pour les travaux sur fichiers. etc. 

Mais, comment faire pour s'y retrou- 
ver plusieurs mois apres la creation 
d un nouveau PLE ? La methode 
des essais est bien sur efficace. mais 
rustique et fastidieuse. J'ai done ecrit 
le programme suivant. qui affiche les 
caracteres tapes apres la touche ESC 
et leur signification, dans I'ordre oil 
ils sont en memoire. puis ranges par 
ordre ASCII. 

Pour utiliser ce programme, chargez 
PLE. puis lancez le programme 
PRINT PLE. ESCAPE. 

• Le programme detecte l'absence 
de fichier PLE en memoire. 

• Puis vous demande le nom de 
votre PLE sur votre disquette. la 
date, et vous rappelle d'allumer 
votre imprimante. Cela fait, ap- 
puyez sur n'importe quelle touche. 

• Certains items sont suivis de RE- 
TURN > : ce qui saffiche a I'ecran 
est alors suivi d'un "'retour cha- 
riot'" qui vous evite d'avoir a le 
taper. 

• D'autres items sont suivis de * 
RECURSIF *. ce qui signifie qu'il 
n est pas necessaire de retaper 
ESC pour obtenir de nouveau le 
resultat desire, line application 
evidente est disponible d'origine 
sur l'Apple : ESC l.J.K.M permet- 
tent les mouvements du curseur 
dans les quatre directions. 

• Certains items, enfin. compren- 
nent des caracteres de controle 
qui sont alors imprimes comme 
suit : C(X) correspond a CTRL-X. 

Le programme est suffisamment do- 
cuments pour etre compris facile- 
ment. II suffit de savoir que les codes 
ESC sont ranges en memoire a partir 
de I'adresse 39858 ($9BB2) La liste 
des codes se termine par 0. ce qui 



permet de la detecter. En memoire. 
les codes sont composes de la facon 
suivante : 

• Premier caractere = touche frap- 
pee apres ESC. 

• Caracteres suivants = ce qui ap- 
parattra a I'ecran. tous les octets 
etant superieurs a 128 ($80). 

• Le caractere de fin de code est in- 
ferieur a 128. 



Le programme a ete ecrit pour fonc- 
tionner sur Apple II Plus 48K avec 
une imprimante Epson MX 82. Si 
vous utilisez une autre imprimante. 
vous aurez peut-etre a modifier les 
lignes 250 (qui selectionne les carac- 
teres U.S.). 270. 480. 620 et 700. 

Si vous ne desirez pas avoir la liste 
imprimee dans le desordre. suppri- 
mez les lignes 270 et 280. m 



Exemple de sortie dans I'ordre ASCII 

<ESC> = » RECURSIF » 
ESC C(E) = C(G)C(G)C(X) 

ESC ! = ?TAB(20-LEN<ZYS>/2> 

ESC " = ?DS" 

ESC « = CALL-151 <RETURN> 

ESC = SPEED=255 

ESC 1 = LEFTS ( 

ESC 2 = MIDS< 

ESC 3 = RIGHTS ( 

ESC 4 = CHRS< 

ESC 5 = STRS( 

ESC 6 = SPEED= 

ESC 7 = CALL 

ESC 8 = PEEK < 

ESC 9 = POKE 

ESC : = APPEND" 

ESC < = OPEN" 

ESC = = H=PEEK<36> :V=PEEK<37> 

ESC > = CLOSE" 

ESC ? = ?TAB< 

ESC A = CATAL0GD2 <RETURN> 

ESC D = READ" 

ESC G = GOTO 

ESC H = FLASH: 

ESC I = <ESC> D * RECURSIF « 

ESC J = <ESC> B » RECURSIF » 

ESC K = <ESC> A • RECURSIF * 

ESC L = LIST <RETURN> 

ESC M = <ESC> C » RECURSIF * 

ESC N = NEXT 

ESC = ONERRG0T0 

ESC P = INPUT 

ESC Q = CATALOGD1 <RETURN> 

ESC R = RETURN <RETURN> 

ESC S = GOSUB 

ESC T = TEXT:H0ME:SPEED=255:N0RMAL:DS=CHRS<4) <RETURN> 

ESC U = normal: 

ESC V = INVERSE: 

ESC W = WRITE" 

ESC X = RESUME <RETURN> 

ESC Z = THEN 



10 
11 
12 
13 
14 
15 
16 
17 



REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 



»««»»*«*»»»»»#*»»»»*» 

* * 

* PASCAL FONTANIER * 
» * 

* PRINT PLE. ESCAPE » 
» « 
» VERSION 1.2 • 



18 REM 



**•***••**••*#•*••••* 



100 TEXT : HOME : SPEED= 255: NORMAL :D 

S = CHRS (4) 
110 INVERSE : PRINT " IMPRESSION DES 

CODES ' ESC DU PLE PASCAL 
FONTANIER - OCTOBRE 1983 ==== 
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===": POKE 34,4 
120 REM 

««* PLE IN SYSTEM ? «»« 

130 = PEEK (1011) + 4 : IF Q < = PEE 

K (978) THEN 170 
140 PRINT CHRS (7); CHRS (7); CHRS (7) 

: PRINT : INVERSE : PRINT "•»• PL 

E N'A PAS ETE CHARGE *»»": PRINT 

: PRINT : NORMAL 
150 FLASH : PRINT "CHARGEZ LE" : PRINT : 
PRINT : NORMAL : PRINT " PUIS RE 

CHARGEZ CE PROGRAMME": PRINT : EN 

D 

160 REM 

««* PLE EST BIEN PRESENT «*- 

170 NORMAL 

180 DIM SS(IOO) 

190 INPUT "NOM DE LA VERSION DU PLE : " 
;N0MS 

200 PRINT : PRINT : PRINT 

210 INPUT "DATE : " ; DAS 

220 ADR = 39858: REM ADR CODES ESC 

230 N = N * 1: REM NOMBRE D ' ELEMENTS 

240 PRINT : PRINT : INVERSE : PRINT "A 

LLUMEZ L'IMPRIMANTE " ; : NORMAL : 

POKE - 16368,0: GET ZZS: PRINT 
250 PRINT DS"PR£1": PRINT CHRS (27); C 

HRS (82); CHRS (0): PRINT : PRINT 
: PRINT DS"PR£0": REM 3 CHRS = 

PRINT USA 

260 NOMS = NOMS * " " * DAS : NO = LE 

N (NOMS) 

270 PRINT DS"PR£1": PRINT NOMS;" 

DANS LE DESORDRE" 
280 FOR X = 1 TO NO + 25: PRINT "=";: N 

EXT X: PRINT : PRINT 
290 REM 

««* ANALYSE DU CODE ' ESC *«* 



300 IF PEEK (ADR) = THEN PRINT 



PRINT : PRINT : GOTO 480: REM T 
RI 

Y = PEEK (ADR) 
IF Y < 128 THEN 390: REM FIN DE COD 
E 

IF Y = 155 THEN SS(N) = SS(N) + "<E 

SO ": GOTO 370 
IF Y > = 240 AND Y < 250 THEN Y = 
Y - 240:SS(N) = SS(N) + STRS (Y) 
: GOTO 370 
IF Y > 127 AND Y < 159 THEN SS(N) = 
SS(N) * "C(" + CHRS (Y - 64) + 
")": GOTO 370 
SS(N) = SS(N) ♦ CHRS (Y) 
ADR = ADR + l: GOTO 310 
REM 

««* FIN DE CODE »«« 



310 
320 

330 

340 

350 



360 
370 
380 



390 
400 
410 



420 
430 



IF Y = 13 THEN SS(N) = SS(N) * " < 

RETURN)": GOTO 430 
IF Y = 127 THEN SS(N) = SS(N) * " 

• RECURSIF *": GOTO 430 
IF Y < 26 THEN SS(N) = SS(N> ♦ "C(" 
* CHRS (Y ♦ 64) * ") ": GOTO 43 



SS(N) = SS(N) + CHRS (Y ♦ 128) 
IF LEN (SS(N)) > 5 THEN IF LEFTS 




440 



<SS(N),5) = "<ESC>" THEN SS(N) = 
"<ESC> = « RECURSIF »": GOTO 460 
IF LEFTS (SS(N),2) = "C(" THEN SS ( 



N) = "ESC " + 

•■ = ••+ MIDS 
450 SS(N) = "ESC " + 

"="+ MIDS 
460 PRINT SS(N):ADR = ADR 

: GOTO 300 
470 REM 



LEFTS (SS(N),4) + 
(SS(N) ,5) : GOTO 460 

LEFTS (SS(N),1) * 
(SS(N) ,2) 

i:n = N * l 



«*« TRI ««« 
PRINT DS"PR£0" 

FLASH : PRINT "PATIENTEZ, S.V.P.,": 
INVERSE : PRINT : PRINT "JE TRIE 
LES CODES PAR ORDRE A. S.C.I. I.": 
NORMAL 
N 

INT (M / 2) 
IF M = THEN 620 
530 P=N-M:J=1 
540 I = J 
550 L = I + M 

560 IF SS(I) < = SS(L) THEN 590 

570 WS = SS(I):SS(I) = SS(L):SS(L) = WS 

580 I=I-M:IFI> =1 THEN 550 

590 J = J + 1: IF J > P THEN 510 

600 GOTO 540 

610 REM 

««« IMPRESSION TRIEE «*« 



480 
490 



500 M 
510 M 
520 



DANS L' ORDRE ASCI 



► 24: PRINT 
PRINT 



N 



620 PRINT DS"PR£1" 
630 PRINT NOMS; " 
I" 

640 FOR X = 1 TO NO 

EXT X: PRINT 
650 FOR X = 1 TO N 
660 PRINT SS(X) 
670 NEXT X 

680 PRINT " 

": PRINT : PRINT "FIN DE " ; 

NOMS : PRINT : PRINT : PRINT 

690 PRINT DS"PR£0" 

700 PRINT : PRINT : INVERSE : PRINT "UN 

DOUBLE ? (0/N) ";: GET ZZS 
710 NORMAL 

720 IF ZZS = "0" THEN PRINT : GOTO 620 
750 TEXT : NORMAL : CALL 38656: END 
65535 REM 



PASCAL FONTANIER 
PRINT PLE. ESCAPE 
OCTOBRE 1983 
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Contrairement a ce qu'affirme Olivier 
Herz dans le Courrier des Lecteurs 
du numero 10 (je ne suis pas peu 
fier de le prendre en defaut). il est 
possible de tracer des cercles sans 
calculer de sinus ni de cosinus. Le 
principe est le suivant : 

Si les deux suites de nombres X(n) et 
Y(n) sont definies par recurrence par 
les formules : 

X(0)=R (par exemple) 
Y(0)=0 

Y(n + l)=Y(n)+e*X(n) 
X(n + l)=X(n)-e*Y(n + l) 

les points de coordonnees X(n) et 
Y(n) s'inscrivent sur une ellipse 
d'equation : 

X*X + e*X*Y + Y*Y = R*R 

II suffit de donner une petite valeur a 
e pour que 1' ellipse soit indiscernable 
d"un cercle. L'interet de cette me- 
thode vient de ce qu'elle est stable : 
les erreurs de calcul ne s'accumulent 
pas. 

Pour des raisons evidentes. j'ai choisi 
la valeur e= 1/256, qui donne un ex- 
cellent resultat au point de vue gra- 
phique, mais peut-etre pourrait-on 
accelerer un peu le programme en 
prenant e= 1/128 ou 1/64? Je ne 
suis pas un specialiste de 1'assem- 
bleur; essayez done vous-memes si le 
coeur vous en dit. Dans le meme 
ordre d'idees, la routine actuelle 
n'accepte que les centres sur l'ecran, 
et les rayons inferieurs a 256... 

Vous trouverez ci-apres. comme sur 
la disquette d'accompagnement de 
ce numero. le programme source 
CERCLE en DOS Tool Kit, la ver- 
sion code CERCLE. OBJ0 et un pro- 
gramme de demonstration en Basic. 



Programme CERCLE 
DOS ToolKit 



Trace rapide de cercles 

Dominique Bernardi 



1 


RAYON 


EQU 


S300 


2 


CX 


EQU 


S301 


3 


CY 


EQU 


S303 


4 


COS 


EQU 


S6 


5 


SIN 


EQU 


S8 


6 


PLOT 


EQU 


SF457 


7 


« 






8 


* 






9 




ORG 


S304 


10 


» 






11 








12 


INIT 


LDA 


RAYON 


13 




STA 


COS+1 


14 




LDA 


#S0 


15 




STA 


SIN + 1 


16 




STA 


SIN 


17 




STA 


COS 


18 




JSR 


ECRIS 


19 


* 







20 » 

21 VARY 
22 

23 
24 
25 
26 
27 

28 VARX 

29 

30 

31 

32 

33 

34 

35 

36 

37 FIN 

38 * 

39 ECRIS 
40 

41 
42 
43 
44 

45 

46 Tl 
47 
48 
49 

50 ECRIS2 

51 

52 

53 

54 

55 

56 

57 

58 

59 T7 

60 

61 

62 

63 

64 T6 

65 

66 

67 

68 

69 

70 

71 

72 

73 T8 

74 

75 

76 

77 



CLC 
LDA 
ADC 
STA 
BCC 
INC 
JSR 
SEC 
LDA 
SBC 
STA 
BCS 
DEC 
JSR 
LDA 
BNE 
RTS 

LDA 
CLC 
ADC 
BCS 
CMP 
BCS 

JSR 
SEC 
LDA 
SBC 
BCC 
PHA 
LDA 
CLC 
ADC 
BCS 
LDY 
BEQ 
CMP 
BCS 
TAX 
PLA 
PHA 
JSR 
J MP 
LDY 
BNE 
CMP 
BCS 
TAX 
INY 
PLA 
PHA 
JSR 
SEC 
LDA 
SBC 
BCC 
LDY 



SIN 

COS+1 

SIN 

VARX 

SIN + 1 

ECRIS 

COS 

SIN + 1 

COS 

VARY 

C03+1 

ECRIS 

COS+1 

VARY 



CY 

SIN + 1 
Tl 

#192 
Tl 

ECRIS2 
CY 

SIN + 1 
RETOUR 

CX 

COS+1 

T6 

CX + 1 

T7 

#24 

T8 



PLOT 

T8 

CX + 1 

T8 

#24 

T8 



PLOT 
CX 

COS + 1 
T9 
CX + 1 



78 




TAX 




79 




PI A 




80 




7SR 


PI [IT 


81 




JMP 


RETOUR 


82 


T9 


TAX 




83 




PLA 




84 




LDY 


CX + 1 


85 




BEQ 


RETOUR 


86 




DEY 




87 




JSR 


PLOT 


88 


RETOUR 


RTS 





CERCLE. OBJO 



0304- 
0308- 
0310- 
0318- 
0320- 
0328- 
0330- 
0338- 
0340- 
0348- 
0350- 
0358- 
0360- 
0368- 
0370- 
0378- 
0380- 
0388- 
0390- 



AD 00 
07 A9 

06 20 

07 85 
35 03 
06 B0 
A5 07 
18 65 
03 20 
E5 09 
18 65 
FO 04 
48 20 
02 03 

m cs 

flD 01 
02 03 
95 03 



03 85 
00 85 09 
35 03 18 

08 90 05 
38 ft5 06 
E9 C6 07 
DO E0 60 

09 B0 07 
4C 03 38 
90 49 48 
07 B0 12 
C9 18 B0 
57 F4 4C 
DO 0B C9 
68 48 20 
03 E5 07 
m 68 20 
m 68 AC 
20 57 F4 



85 08 85 
A5 08 65 
E6 09 20 
E5 09 85 
20 35 03 
flD 03 03 
C9 CO B0 
AD 03 03 
AD 01 03 
AC 02 03 
19 AA 68 
77 03 AC 
18 B0 07 
57 F4 38 
90 0B AC 
57 F4 4C 
02 03 F0 
60 



Programme 
CERCLE DEMO 

10 DS = CHRS (4) : PRINT 
DS; "BLOAD CERCLE. O 
BJO" 

20 HGR2 : HCOLOR= 3: PRI 

NT CHRS (7); 
30 FOR X = O TO 279 STEP 
55 

33 XH = INT <X / 256) :XL 

= X - 256 « XH 
36 POKE 769, XL: POKE 770 
,XH 

40 FOR Y = O TO 191 STEP 
50 

45 POKE 771, Y 
60 FOR R = 2 TO 200 STEP 
40 

70 POKE 768, R: CALL 772 
80 NEXT : NEXT : NEXT 
100 PRINT CHRS <7) ; : GE 

T AS 
110 TEXT : END 
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La micro-informatique au Japon 



(HE 



Olivier Herz 

Le developpement de la micro-infor- 
matique au Japon prend l'allure 
d'une explosion. Le marche. quasi 
inexistant il y a un ou deux ans. evo- 
lue de maniere exponentielle. 

Les magasins 

A proprement parler. il y a tres peu 
de magasins exclusivement consacres 
a l'informatique, mais chaque maga- 
sin d' articles electroniques possede 
un rayon TV-video, un rayon calcu- 
latrices. un rayon Walkman... et un 
rayon micro-informatique. 
Les trois quarts de ces magasins sont 
concentres dans le quartier d'Akiha- 
bara. ou ils pullulent par dizaines, 
voire centaines. 

En gros. les ordinateurs sont classes 
en deux categories : 

• les pasocom (personnal compu- 
ters) destines a I'usage domesti- 
que: 

• les wordpro (word processors) a 
usage professionnel. 

II va sans dire que les ordinateurs 
etrangers sont quasiment absents : 
parmi les ordinateurs exposes, il y a 
moins de trois pour cent d'Apple, et 
encore, jamais en etat de marche 
pour demonstration: quant a IBM. il 
n' utilise pas les circuits de distribution 
mentionnes ci-dessus. mais les 
"Computerland". Ceci n'a rien 
d'etonnant. Apple et IBM etant a peu 
pres au prix francais (voir ci-dessous 
les prix des ordinateurs japonais). 

Le langage 

La langue japonaise utilise un sys- 
teme d'ecriture fort complexe. II y a 
deux alphabets syllabiques (kana) : 

• le katakana. qui sert a ecrire les 
mots d'origine etrangere. et que 
les lecteurs de Pom's connaissent 
bien (voir HAIFA Pom's 5); 

• le hiragana. qui sert a ecrire les 
terminaisons grammaticales. les 
post-positions... 

II y a aussi des ideogrammes d'ori- 
gine chinoise (kanji) qui servent a 
ecrire les racines des noms. verbes. 
adjectifs... et dont on ne peut se pas- 
ser, compte tenu du tres grand nom- 
bre d'homonymes. 

Cet etat de fait pose un enorme pro- 
bleme au niveau du software de 
base, qui peut etre resolu de la facon 
suivante : 

• pour les ordinateurs bas de 
gamme. on peut ecrire en kana 
(generalement katakana) grace a 



un generateur de caracteres et a 
une commutation kana/romaji (ro- 
maji est notre alphabet, parfois uti- 
lise pour ecrire certains mots); 

pour les ordinateurs profession- 
nels. le kanji est integre au sys- 
teme d'exploitation. c'est-a-dire 
que Ton rentre les mots en sylla- 
baire hiragana et que le DOS offre 



un choix de kanji dont on tire 
celui cherche. Les logiciels de trai- 
tement de texte tournent avec un 
tel DOS. Au Japon. c'est une re- 
volution ! 

Tout ceci explique les efforts conside- 
rables portes par le Japon en matiere 
de ROM et RAM (on en est au me- 



Maroue Type Micro orocesseur ROM RAM Disquettes 



Prix 





PKJ^VV 


Rflflfi PMU? 

DvOO Onni 


/ rat 


1 « An 
1 « Op. 


crone 


Z3ZUU 


NEC 


PC100 


808S mz 


32K i28K 


1 * 720K 


MS-DOS 


14400 


SEC- 


PC6601 


PD780C mn 


36K 64K 


/ 


/ 


3060 


NEC 


PC380! 


PD7S0C mil 


128K ? 


? 


? 


? 


SHARP 


XI 


Z80A 4«H2 


6K 64K 


Cassettes 


/ 


4320 


SHARP 


MZ2200 


zaofl mz 


4K 64K 


Option : 


/ 


4608 


SHARP 


SZ5500 




1 CM 1 1RX 


i • "Wit 


no UUo ci 


iUJOO 


Packet 


PC1245 


CMOS 8fnts 


24K 2.2K 


/ 


CP/M 86 


648 


Pocket 


OC1255 


CMOS 3bits 


24K10.2K 


/ 




12% 


Pocket 


PC1401 


C«CS Soits 


40K 4.2K 


/ 




1080 


Pocket 


PC1501 


C*!0S Sbits 


16K 8.5K 


/ 




2340 


RJJISTU 


F» 7 


6809 8*2 


44K 64K 


1 * 320K 


CP/M 80 ou 


4536 






zsofi miz 






iJCSD 




FUJisnj 


fm n 


8088 6MHz 


4K 128K 


i * 320K 


CP/M 80 ou 


9720 












Do, noUUa 


ei 






Z80A miz 






UCSD, OS-9 


olus 


FUJisnj 


FM X 


Z80A 3.58MHz 


16K 16K 


Cassettes 




1800 




OASYS 


9 


? ? 


1 drive 


Tr. texte 


27000 


HITACHI 


Hi 


Z80A 


40K 32K 


Cassettes 


/ 


2268 


TOSHIBA PASOPIA 16 


Z80A 


32K 64K 


Cassettes 




2376 


TOSHIBA 


PASOPIA 7 


Z80A 4MHz 


16K 64K 


Cassettes 




4284 


CANON 


V-10 


Z80A 3.58MHz 


32K 16K Cartouches 




1980 


NRTICNRL 


CF 200 


i 


? 32K 


Cartouches 




1980 


OKI 


IF 800 


8086 Bffe 


? 256K 2 floDoies 


MS-DOS 

c 


•} 


EPSON 


HC 20 


? 


? ? 


flicro-cass. 


/ 


5760 


EPSON 


QC 10 


? 


? ? 


? 


CP/M 


? 


CASIO 


FP-3000 


8086 8MHz 


? 128K 


? 


MS-DOS 


5400 


SANYO 


KBC-55 


8086 


? 128K 


? 


MS-DOS, CPM 


6408 


SANYO 


MBC 200 


Z80A 4MHz 


? ? 


1 floppy 


CP/M 


16200 


Apple 


//e 


(prix au Japon, a titre de coaparaison) 


13608 



Le tableau a ete calcule avec le taux de change : 1 000 yens = 36 FF 
Certains prix n'ont pu etre decouverts par Olivier Hertz, d'ou les "?" 
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gabit sur une puce), la recherche 
d'un kanji se faisant actuellement en 
partie sur disquette. 

II va sans dire que le code ASCII ne 
marche pas dans une telle situation: 
on definit un code sur deux octets. 

Livres et revues 

Chaque ordinateur ou presque a sa 
revue et ses livres (je n'ai pas vu de 
revue consacree a 1' Apple, seulement 
quelques livres) et il est etonnant de 
constater que les livres americains 
sont quasiment absents. Pour les 
trouver. il faut chercher dans les li- 
brairies ayant des rayons "etranger". 
II y a en outre quelques revues d'in- 
teret general, avec articles et publici- 
ty. 

Imprimantes 

II n'y a pas tellement plus d'impri- 
mantes qu'en France. On retrouve 
toujours les memes (Seikosha, 
Epson. Oki. NEC...), mais souvent 
habillees d"une autre marque : celle 



de l'ordinateur avec lequel est vendu 
1'imprimante. 

Ordinateurs familiaux 

C'est la plethore; on en trouve a tous 
les prix. y compris des seize bits aux 
possibility graphiques exceptionnel- 
les. 

Le Sinclair QL et autres n'ont plus 
qu'a trembler (voir le tableau ci- 
joint). 

Ordinateurs 
professionnels 

La aussi, il y a plethore de modeles 
seize bits (avec 68000. 8086...) fonc- 
tionnant sous CP/M 86. MS-DOS... 
Le probleme est que je n'ai pas en- 
core trouve de compatible IBM. ce 
qui serait tres sympathique. compte 
tenu des prix. 

IBM 5550 

Cet ordinateur, fabrique au Japon 
par IBM-Japan, a un succes extraor- 



dinaire aupres des societes, bien qu'il 
soit tres cher (pres de 100.000 F 
avec trois drives). 

Constant autour d'un 8086, il pos- 
sede deux systemes d'exploitation : 

• le premier sert uniquement au trai- 
tement de texte en japonais; 

• le Nihongo DOS, enfin, ressemble 
au MS-DOS pour les mots-cles. 
mais possede en outre une 
conversion kana/kanji. 

Sous ce systeme, on peut faire 
tourner des langages (Basic, Pas- 
cal, Fortran, avec affichage des 
messages en japonais si neces- 
saire), et des logiciels comme Mul- 
tiplan, Multitool Chart (graphi- 
ques). Multitool File (Data Base)... 

Je n'en dirai pas plus, les lecteurs in- 
teresses par les details pouvant se re- 
porter a 1' article paru dans la revue 
Byte (novembre 83) : "Big Blue goes 
Japanese". 



Pom's a vu MEM/TERM 



Imagol s'est fait depuis longtemps 
deja une place un peu particuliere en 
devenant le champion du MEM/ 
DOS. un systeme d'exploitation par- 
ticulierement adapte a la gestion de 
fichiers sur Apple (voir "La carte 
MDOS 6502 a 1'essai". Pom's No 
4). 

Imagol lance maintenant, toujours 
dans la famille MEM/DOS, un nou- 
veau service : MEM/TERM, logiciel 
de communication transformant un 
Apple en terminal d'un autre Apple. 
La communication peut se faire par 
ligne directe, ou par l'intermediaire 
d un modem sur une ligne telephoni- 
que. Notre but ici est de vous pre- 
senter sa genese et les projets de de- 
veloppement. 

Les realisations 

MEM/TERM est ne avant tout d'une 
constatation : MEM/DOS est surtout 
repandu dans les PME et les SSCI 
(80% des installations se trouvent en 
province). L'isolement geographique 
de nombreux utilisateurs a conduit a 
leur offrir un service de tele-mise au 
point et de telemaintenance des logi- 
ciels. 

Dans le cas d'installations multipostes 
(frequentes sous MEM/DOS), les dia- 
gnostics de dysfonctionnement peu- 
vent parfois s'averer delicats : MEM/ 
TERM s'est alors vu doter d'une 
fonction de "RUN" a distance per- 
mettant le test des fonctions de ['ins- 
tallation reelle de l'utilisateur. Sous 
MEM/DOS, les masques sont stockes 
independamment des programmes, 
ce qui permet de ne pas les trans- 



mettre. lis sont dupliques sur Instal- 
lation du "mainteneur", et seules les 
informations utiles transitent par les 
lignes de communication. 

En "prime", MEM/TERM permet 
aussi d'executer un programme a 
distance chez l'utilisateur lui-meme, 
par exemple des transactions en 
temps reel sur un poste dans la jour- 
nee, et une exploitation en temps dif- 
fere sur un autre poste (toujours en 
ne transmettant que les donnees 
utiles). 

Les projets 

La premiere voie de recherche vise 
une amelioration du produit de base, 
en le dotant d'un systeme de protec- 
tion permettant d'utiliser MEM/TERM 
avec CERTAINS programmes et fi- 
chiers, mais empechant de le faire 
pour d'autres, loges sur le MEME 
disque (ceci en vue d'assurer la 
confidentialite de certains fichiers et 
traitements). 

La seconde voie. consiste a creer une 
sorte de "banque de demos" eclatee. 
les divers abonnes a ce service (re- 
vendeurs notamment) pouvant de 
leur poste utiliser a des fins commer- 
ciales les "demos'" proposees. en 
parnculier par des producteurs ou 
distributees de logiciels. 

La troisieme voie est la creation d un 
reseau avec un serveur et des Apple 



Guy Lapautre 

(en "concurrence" avec Minitel). 
Toutefois. d'autres solutions possibles 
sont a 1' etude, notamment celles in- 
cluant des Minitel dans le reseau. Af- 
faire a suivre. 

Cout du service 

MEMTERM est-il un service cou- 
teux ? Rappelons tout d'abord qu'il 
ne fonctionne que sous MEM/DOS, 
et le plus souvent sur des installations 
relativement musclees. Les prix qui 
suivent ne comprennent pas 1'acqui- 
siton du MEM/DOS. 

1) Installation simple pour telemain- 
tenance : 5.000 F environ pour le 
modem et la carte Super Serie. plus 
1.000 F pour le logiciel. soit un cout 
total d'environ 6.000 F HT. 

2) Communication entre deux Apple 
chez l'utilisateur : ['installation ci- 
dessus en double (1 des modems 
avec porteuse) et 1 logiciel a chaque 
extremite. soit environ 12.000 F HT. 
Par contre. si la distance est courte, 
au maximum 100 metres sans ampli. 
le cout est d'environ 4.500 F HT, 
plus celui d'un cable 3 brins entre les 
postes. 

Pour tous renseignements. telepho- 
ner a Monsieur Ratie. Imagol. 1-5 
rue Gutenberg, 75015 Paris - Tel 
577.59.39. 
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MM Apple 11 " Iome * 
par Serge et Gerard L/ilio 
Void un ensemble complet de pro- 
a^rnmes de Comptabilite su. Apple 11 
idapie au Nouveau Plan Comptable 
pour pemes ent.eprises. protons 
Kales, artisans. commercants On 
y trouve des programmes 
Sedition des livre-ioumal gra nd-Uvre. 
balance. Man la possible i d«* er 
les livres de banque. de TVA. de re 
cettes, ainsi quun P'°9^mme de d^ 
tection des erreurs de 
du systeme : compie a 6 cWBres, 4UU 
lignes par plan, ion (in FF 

La disquette : 195.00 FF 



oranges complementaires des pro- 
de comptabiHW du tome J . 

unite 5 pouces ,1/4. 

Le livre : 144 pages - 110,00 Fh 
Ladisquette: 195.00 FF 



i -if »Vt tl 1 



J j paic el ve* annexe* 
porJean-MichelJego 
Pet ouvtage presents 1 analyse el a 

^=?SaS 
Ladisquette. 195.00 FF 



Outils financiers eicomptables 
pour lentreprise 

programme est propose avec 
exemple dappUcatton. 
Le livre : 156 pages - 100.00 rr 
U d^quette: 195.00 FF 



tableaux de bord. etc.J. 
Le livre : 216 pages 100 00 Fh 

Ladisquette: 195.00 Fr^ 




Visicalc sur Apple 
parHerueThiriez a ~a,i 
Acres une presentation progressive du 

les dlflerentes instructions et astuces 

d' utilisation. nft cc 

Le livre: 176 pages -90 00 FF 

Ladisquette: 195.00 FF 



L Apple el ses fichier* 

ces techniques. pp 
Le livre :176 pages - 90 00 FF 

Ladisquette: 195.00 FF 



Modules pratiques de decision 

mm. 

gramme en Bas> c Pourp d mod6les 
Ladisquette: 195.00 t-r 




programme en Basic standard 
Lelivre: 176 pages- 90-00 FF 
La disquette:l 195,00 FF 



Modeled express g™!' 1 " 1 * 1 * 
par Jean-Pierre Blanker ^ 



mmm 

^:272p: 9 e Sl 00-00FF 
Ladisquette: 195.00 FF 




par Heme Haul 

fes procedures proposes dans cet 



nnr Claude Non'atowski 
? J , J v Fauations non lineaires poly- 

^»sx— - 

Tome 2 . 184 pages 110 00 F>- 
Ladisquette pour les 2 tomes . 
1195.00 FF 



grammes en BJ^ » 4l6ues . 

lamaison. ion nn FF 

Le Uvre: 192 pages 120 00 FF 

La disquette : 195.00 



U Hvre : 160 pages 110.00 FF 
U disquette : 195.00 FF 
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MICRO-PERIPH 

ouvre les portes de voire fluippkZ II " 



Ouvert du mardi au samedi : 10 h - 12 h et 14 h - 18 h 
62. rue Ducouedic - 75014 PARIS (Tel. : 321.53.16) 




MULTITECH 

clavier 
pour 
Apple 

(1 515 FT.T.C.) 

• 90 touches sur un clavier ergonomique et esthetique 

• 12 touches de tonction progammables par t'utilisateur 

• 10 touches de fonctions definissables par I'utilisateur 

• 52 touches pour les commandos en Basic ou DOS 

• cordon de 1,60 m 

• LED pour "caps lock" et "num lock" 

• parfaitement adapte pour I'Apple 

Ce proauit est d'une excellente qualite et durability Un microprocesseur-decodeur 
sur le clavier confere une enorme flexibility au niveau de la para met risation des tou- 
ches, ce qui est tres utile a I 'installation d'application de traitement de texte. L'ins- 
lation se fait en cinq minutes, sans soudure ni autre piece. 



MODEM "BUZZ BOX" (1 100 F T.T.C.) 

• fonctionnemenr aux normes franchises ICCITT) 

• operation aux 300 bauds 

• fonctionnemem sur pile de 9 V ou avec adaptateur 

• bi-directionnel avec modes "appel" et "reponse" 

• full et half duplex 

• livre avec notice detaillee 

(Get appareil n'a pas encore obtenu son homologation par les P.T.T.) 



PROMOTION IMPRIMANTES 

• Epson FX 80 F/T avec interface pour Apple 

• Epson RX 80 avec interface pour Apple 

• Epson RX 80 F/T avec interface pour Apple 

• Epson MX 100 F/T avec interface pour Apple 

• Epson FX 100 F/T avec interface pour Apple 

• Mannesman Spirit 80 avec interface Aoole 



5 950 F T.T.C. 
4 100 F T.T.C. 
4 450 F T.T.C. 

6 300 F T.T.C. 
6 950 F T.T.C. 
4 500 F T.T.C. 




NOUVEAU 

STYLO OPTIQUE (1 770 F T.T.C.) 

• fonctionne avec moniteur monochrome, couleur ou televiseur couleur 

• resolution 280 - 192 points 

• 10 K disquette systeme qui confe'e 40 instructions graphiques 

• fonction "ZOOM" qui elargh jusqu'a sept fois 
: couleurs de base mixables 



LES CARTES « PILOTS » 

U-TERM (1 490 FT.T.C.) 

Cette carte qui vous donne 80 colonnes sur I'ecran vous permet d'avoir deux jeux de 
caracteres a la fois qui sont co-residents dans la memoire vive et la memoire morte 
de la carte. Par exemple. les caracteres francais majuscules et minuscules ainsi que 
les caracteres anglo-saxons. Elle a une tres grande gamme de compatibility 
APPLESOFT. PASCAL, CP M. APPLEWRlTER II, etc. 

U-Z80 11 150 F T.T.C.) : son point fort est la Vitesse : 4 MHz. Compatible avec tous 
les logiciels CP/M ou de Z80. 

U-RAM16 1890 F T.T.C. t : c'est une carte langage entierement compatible avec 
INTEGER BASIC. PASCAL, VISICALC. etc. Poufquoi paver plus cher? 
U-S232 (1 040 F T.T.C. I : une cane de serie, Vitesse variable enue 75 er 
19200 bauds. Cette carte contient son propre logiciel de handshake, ce qui pmmei 
' ? faire fonctionner une imprimante a sa vitesse optimale. Compatible avec le logi 



NOUVEAU 

PROMOTION DE LECTEURS DE DISQUES - 2 550 F T.T.C.) (Phol»8l 

• 100% compatible avec Apple II + et lie 

• Mecanique Siemens Corp. avec systeme vis sans fin 

• Electronique fabriquee en Grande-Bretagne 

• Entierement teste et garanti 12 mois 

• Operation tres silencieuse et precise 

(Pour les ventes par correspondence, veuillez ajouter 40 F de port.) 




LES CARTES D'INTERFACE prixt.t.c 

Carte Z 80. (4 MHz) (Photo 1) 930 
Carte 80 col. avec minu/majuscules francais (Photo 21 

car. inverses (II + tcompat. Basic. Pascal, CP ' M etc. 850 

Programmateur d'Eproms (2758 16 '32. 32A '641 (Photo 3) 830 

Carte RS232C 75-19200 baud compaf. Visitenn, etc (Photo 41 720 

Int/face parallele type Centronics pour Epson, etc. (Photo 5) 475 

Interface pour lecteur de disques (Photo 6) 515 

Carte langage pour Apple II + compatible Pascal. CP/M (Photo 71 575 

Carte 80 colonne pour Apple He extensible a 64 K (Photo 9) 850 

Carte 80 colonnes pour Apple / /e equipee de 64 K I Photo 91 1 400 

Carte 128 K pour II * ou //eavec pseudodisque DOS. Pascal et CP 'M 2 745 

Joystick avec aulo-centrage et micro-adjust 275 

Ventilateur pour Apple II + ou Aple / /e 320 

Alimentation 650 

Carte VIA 6522 avec 8 entrees/sorties et deux temponsat. 465 

Carte horloge 755 

Carte IEEE-488 * cable 1 650 

Carte musicale 715 

Carte imprim. lEps., Cent., NEC, Appl.) avec 64 K buffer 1 645 

Carte a entre /sortie multiple A. D. D/A 2 205 

Carte 6809 bi-processeur 2 205 

Carte convertisseur A/D 1 085 

Carte int/face para commutable (Epson. Apple. NEC. Cenw.) 675 

Moniteur Zenith ven l 120 

Moniteur Zenith ambre 1 230 

Carle Videx Ultraterm 5 100 
Accelerator II 4 MHz de Saturn - tous les programmes tournent quatre 

fois plus vite sans modification 4 350 

Accelerator //e 4 900 

SAM synthetiseur vocal 1 150 

Enhancer II - buffer, auto-rep. et macros pour claviers 1 500 

LES LOGICIELS PROFESSIONNELS 

DBASE II 6 600 

ASCII Express pro - logiciel de communication 1 550 

Z-Term Pro - logiciel de communication Z 80 1 500 

P-Term Pro - logiciel de communication Pascal 1 500 

Softerm 2 - emulation de terminal 2 050 

Magicalc 1 400 

Merlin Assembleur 650 
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DE RENSEIGNEMENTS. n'hesitez pas a nous appeler. 
s une tres grande gamme de produits pout lesquels nous 



BON DE COMMANDE 

(Toutes nos cartes sont garanties 12 mois/ 

A decouper et envoyer a : 

MICRO-PERIPH, 62, rue Ducouedic - 75014 Paris - Tel. : 321.53.16 
Je desire recevoir rapidement, sous pti recommande : 



QUANTITE 



DESIGNATION 



TOTAL T T.C. 



Total 

Frais de port recommmande 
Ci-joint un cheque / C.C.P. de F ; 



La famille Apple // 

Daniel Game 



Une annee, on change le manche. 
L'annee suivante. la lame. Au bout 
de huit ans, c'est toujours le meme 
couteau. Mais comme, entre temps, 
les techniques de fabrication du man- 
che et de la lame se sont beaucoup 
ameliorees. vous avez un couteau 
qui peut toujours faire les memes 
choses. Mais tellement mieux ! Et, 
ces techniques, elles n'ont pas fini de 
progresser. Alors, votre couteau. il va 
durer longtemps. Et puis, si deux ou 
plusieurs annees de suite, vous ne 
pouvez ou ne voulez rien changer, 
quelle importance ? Vous continuez 
de vous en servir : quand vous met- 
tez une lame neuve. elle est deux 
fois meilleure. 

Le present du lie 

Voici done l'Apple He (pour "com- 
pact"), enieme version da l'Apple I, 
ce grand ancetre, ne dans un garage 
de Californie il y aura un siecle et 
demi : en informatique, on divise le 
temps par 20; 100 ans = 5 annees 
de la vie d'un humain. Les differen- 
ces du micro avec T humain" sont 
d'ailleurs curieuses : plus il vieillit. 
plus il prend de la bouteille (pardon, 
de la puce) et plus il se degraisse. 
Cet Apple He ne pese plus que 3,4 
kilos, lecteur de disquettes incorpore 
compris. 

S'il grandit, e'est par sa matiere 
grise : 128 K-octets pour cet Apple- 
plume de 30 cms sur 30. 11 n'en 
aura jamais davantage d'ailleurs puis- 
que - grande nouveaute - il a perdu 
au passage ces slots qui faisaient la 
joie des bricolos. Faut-il pleurer ? 
Non. Puisque son grand frere lie les 
conserve. Et qu'il est tout de meme 
bien agreable de prendre son ordina- 
teur a la main, comme jadis papa 
son chapeau. pour aller passer le 
week-end ailleurs ou. tout simple- 
ment, le ramener le soir a la maison, 
apres une journee studieuse sur les 
bancs de la fac. L'ecran ? Bof. Pen- 
dant encore trois ou quatre mois. 
e'est vrai, il y aura un demi-pro- 
bleme : il vous faudra emporter un 
moniteur. a moins que vous ne trou- 
viez sur place un poste de tele avec 
prise Peritel - puisque la carte Chat 
Mauve est integree (tiens. vous met- 
tez les slots a la porte, ils reviennent 
se coller derriere): il vous suffit de 
brancher le fil du //c sur le recepteur. 
Cela veut dire egalement que les 80 
colonnes sont la, d'origine. Un petit 
bouton bien visible, sur le capot cou- 
leur beurre frais, et vous passez a vo- 
lonte en 40 colonnes. Et vice versa. 



Vers la fin de l'annee - ou peut-etre 
avant -, les choses vont changer : 
vous pourrez lui mettre un couvercle, 
au lie. Un couvercle pas comme les 
autres puisque. des que vous l'ouvri- 
rez, il se transformera en.,.ecran plat 
a cristaux liquides. 80 et 40 colon- 
nes. Or. le processeur du lie est bien 
un 6502 - mais avec un C. 65C02, 
le C de CMOS, bien sur, cette tech- 
nologie qui diminue fortement la 
consommation d'energie. Ce 65C02 
ajoute une vingtaine d' instructions 
aux 60 que possedait le 6502. D'ou 
une memoire plus rapide d'acces et 
une ecriture de code plus rapide. Si 
done vous ajoutez a la machine une 
batterie - d'origine. Apple-plume 
fonctionne sur 12 volts, avec un 
mini-transformateur - que se passe-t- 
il ? Vous avez devine : vous voici en 
possession d'un ordinateur portable, 
un vrai, l'un des plus legers de la ca- 
tegorie. 

Interessant, cette fois, pour les week- 
ends que vous pouvez transformer 
en pique-niques. Encore faut-il que 
le Multiplan sur lequel vous avez 
peine toute la semaine veuille bien 
aligner ses chiffres dans une clairiere. 
Et la. il y aurait comme une histoire 
de souris qui a deniche un fromage, 
lequel fromage n'est autre que I'em- 
placement traditionnel de la video in- 
versee de certains caracteres secon- 
dares. Car le He y a droit, a sa 
souris. C'est bien. e'est pratique ! 
Mais il faut bien la mettre quelque 
part. Alors, chez Microsoft, on donne 
un dernier petit coup de parte a une 
version de Multiplan qui mettra sa 
video inversee ailleurs. Ceci est vrai 
pour la serie des PFS en particulier. 
de tous les programmes qui font un 
usage etendu de 1' inverse en general. 
A des degres divers : prenez Apple 
Writer. Oui, la ligne du haut, celle 
qui affiche la memoire et les titres. 
grignotee par des caracteres souris. 
ressemble a un morceau de gruyere 
sur le He. Mais - c'est mon cas. 
j'aime les ecrans bien vides - on peut 
toujours s'en echapper avec deux 
fois Esc. Alors se produit l'inattendu : 
disparatt l'un des rares inconvenients 
du lie, sa lenteur de frappe qui me 
supprime environ un caractere sur 
cinq. La relation entre le clavier de 
1' Apple-plume et sa memoire est dif- 
ferente. La consequence, c'est toute 
la rapidite de frappe retrouvee. D'au- 
tant plus surprenant, justement, que 
le clavier, d'apparence mi-chewing- 
gum mi-mecanique se revele. a 
1' usage, plus mecanique que che- 
wing-gum. tres agreable au toucher. 



Cela dit, tous les programmes de jeu 
de type Zaxxon et autres arcadiens 
s'accomodent a la perfection d'Ap- 
ple-plume. Sans parler des jeux de 
role ("Sorcellerie" dans un chateau 
hante, pour les amateurs de sensa- 
tions, cela doit avoir son charme) et 
des jeux d'aventures. Essayez le der- 
nier-ne de chez Vifi-Nathan, "La 
Belle au Bois dormant", tire de 
Charles Perrault par des americains, 
traduit en francjais par des canadiens, 
dans un grand pare du Berry sur 
fond de tours et de creneaux. et je 
suis sur que les enfants apprecieront 
le realisme du conte. 

Notre He, avec ses deux sorties serie, 
modem et imprimante, par exemple 
(l'lmageWriter lui va comme un gant) 
et sa connexion pour un possible se- 
cond drive, est un petit bijou. Mais il 
y a gros a parier que, dans l'echelle 
de revolution Apple, il ne soit tel 
qu'en lui-meme: l'etemite I'a deja 
change. Ce qui est tres bien ainsi. 
Puisque son frere atne, le He, est, lui, 
en pleine mue. 

L'avenir du //e 

La souris arrive. Par le biais de Mou- 
sepaint, d'abord : c'est un pro- 
gramme de dessin et de peinture 
(vous l'auriez devine) furieusement 
tire du Macintosh. Meme avec les 
possibilites plus limitees de l'Apple 
He, c'est une micro-revolution que de 
pouvoir utiliser un ecran comme une 
feuille de papier. D'autant plus que 
les couleurs demeurent. Et que Ton 
n'a plus a manipuler de routines de 
sauvegarde ou d'affichage. 

Mousepaint, c'est l'avant-garde de 
tout un bataillon d'applications que 
Ton pourra tres bientot mener a la 
baguette - pardon, a la souris. 

Mais il y a aussi Jane, oeuvre et/ou 
chef d'oeuvre d'un petit genie de 20 
ans presque de chez nous puisque, si 
Howard Marks - c'est son nom et 
son prenom - est ne britannique, il a 
fait ses etudes en France avant de 
partir les poursuivre aux Etats-Unis. 
L'Apple, il connatt depuis toujours 
(pour lui). II a done tout demonte. 
dans la machine. Et tout reconstruit, 
le DOS en tete, en utilisant une carte 
a enficher dans un slot, l'assembleur 
et "un peu", dit-il, d'intelligence arti- 
ficielle. La premiere version, sur les 
64K du lie ou du II Plus, est interes- 
sante : les commandes ont disparu, 
la souris se balade librement, les fe- 
netres s'eclairent, le tout-graphique 
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explose. Mais on est un peu a l'etroit 
dans la memoire. Attendons la route 
ou la RAM 128K avant de se deci- 
der. 

De toute fagon, il y a le choix. L" Ap- 
ple 7e, pour les usages profession- 
nels, est comble. Du "soft", il lui en 
arrive de tous les cotes (voir 1' article 
de Jean-Michel Gourevitch). Dont un 
nouveau langage. Modula II, version 
modulaire et bien plus interessante 
du Pascal, mis au point par le genie 
helvete de Nicklaus Wirth soi-meme, 
et distribue par Volition System, a 
San Diego. Ce Modula II, dit-on, 
sera le grand rival du C (non, ce 
n'est plus pour "compact", cette 
fois). 

Le "hard" ne se fait pas prier non 
plus. d"ailleurs. avec les cartes 
commc celle d'Act-Logo, en France, 
qui vous autorise a animer quelque 
32 sprites en couleurs sur votre 
ecran. L' esprit est vraiment la, qui 
peut meme deja s'exprimer a haute 
et presqu'intelligible voix avec des 
synthetiseurs varies. 

Drole de "couteau" que cet Apple /,'. 
qui n'en finit pas de renaitre avant 
meme d'avoir rendu sa puce. Celle-ci 
finira bien par y passer, d'ailleurs. 
Mais pas avant d'avoir assure, non 



seulement sa posterite, mais aussi, et 
peut-etre surtout, son passe, un 
passe de 16.000 programmes envi- 
ron. Car il fallait bien qu'arrivat le 
processeur 16 bits entierement 
compatible avec le 6502. Son matri- 
cule est quelque chose comme 
65816 et il vient tout droit d'une pe- 
tite boite californienne specialised 
dans la technologie avancee. Qu'est- 
ce qu' Apple en fera, de son 16 bits ? 
Un Apple //x, comme on le mur- 
mure ? La "bande a Steve Jobs" 
l'avait jusqu'a present plutot snobe. 
le 16 bits, preferant passer directe- 
ment du 8 au 32 avec le 68000 de 
Lisa et du Macintosh. 

Mais justement : il y a eu rupture. 
Tandis que que le 65816 assure la 
continuity dans le changement. La 
tentation est grande de prendre 
appui sur le passe pour se propulser 
en avant. D'autant plus que la strate- 
gic d' Apple est d'une grande clarte : 
devenir, ou plutot demeurer "l'Au- 
tre", un defi de Cinq lettres aux Trois 
lettres magiques. avec de grands 
pans d'une politique coherente a ses 
8 et 32 bits : tout sur la communica- 
tion en serie (adieu au parallele). tout 
sur Pascal et ses modules (tant pis 
pour le Basic, lequel a d'ailleurs ten- 



dance a partir dans tous les sens). 
Beaucoup sur le soft. 

De la a vous dire ce que sera 1' Apple 
// dans un an, je m'y risquerai d'au- 
tant moins que Steve Wozniak. l'au- 
tre "pere" de l'Apple est entre en 
loge, comme on dit. quelque part a 
Cupertino, pour "travailler a quelque 
chose" dont rien ne transpire vrai- 
ment. Et ce n'est pas en regardant la 
concurrence que Ton en saura da- 
vantage puisque. par principe. Apple 
ne fait rien comme les autres. 

Mais on peut etre certain que. du 
cote de San Francisco, il y aura du 
nouveau, dans la taille de 1'appareil 
lui-meme. la capacite de sa memoire, 
de ses gestions d'l/O (n'importe 
quoi). D'autant plus que l'intelligence 
artificielle commence a roder dans les 
parages de la micro. Ce nouveau 
produit aura pour fonction essentielle 
de projeter tres loin le passe vers 
l'avenir. En clair : il y a tres peu de 
chances pour que vos Apple II Plus, 
//e ou lie deviennent steriles avant 
une bonne decennie. Le cercle de fa- 
mille va. au contraire, s'elargir. Vers 
1995. l'Apple II sera toujours la. plus 
tout a fait le meme. pas vraiment un 
autre. 




Microsoft Chart for Apple Macintosh 
Exempie de Chart avec le Macintosh. 
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Micro-informations 

Jean-Michel Gourevitch 



NLDR : tous les prix en francs indi- 
ques dans cet article sont TTC. Cha- 
que fois que I'adresse d'un fournis- 
seur nous est connue. nous 
1'indiquons en fin d'article. Inutile par 
consequent de nous appeler pour 
demander les coordonnees des 
autres fournisseurs. 

On a sans doute enterre un peu vite 
le best-seller d'Apple et son "vieux" 
6502. Voici que non seulement 1* Ap- 
ple se donne des airs de Macintosh 
(voir Particle de Daniel Garric). mais 
que les programmes, les interfaces, 
les peripheriques et les gadgets arri- 
vent comme mars en careme. Oh, 
certes. cette maree fait des jaloux. et 
suscite meme de vilaines vocations 
de copieurs, Ces derniers prendront 
toutefois garde apres la mesaventure 
de Franklin, un fabricant americain 
de simili-Apple : ayant peu de chan- 
ces de gagner le proces que lui inten- 
tait Apple, il a prefere payer a la so- 
ciete de Steve Jobs la bagatelle de 
deux millions et demi de dollars, 
s'engager a ne plus copier les ROMs 
de Cupertino et meme accepter un 
droit de regard des ingenieurs d'Ap- 
ple sur ses ordinateurs a venir ... Un 
arrangement qui freinera peut-etre 
d'autres vocations et renforcera la 
preeminence de 1* Apple II, le seul, le 
vrai. Un autre evenement qui risque 
bien de conforter 1' Apple, ses pro- 
grammeurs et ses fabricants d' inter- 
face, c'est le decollage laborieux du 
petit dernier d'IBM. le PC junior. 
Tandis que ce dernier restait sur les 
etageres des revendeurs. Apple ven- 
dait pendant le seul mois de decem- 
bre 110.000 "e. Alors. si ses perfec- 
tionnements sont si nombreux. il ne 
faut pas. a coup sur. y voir l'effet du 
hasard. 

Car voici l'Apple accommode a 
toutes les sauces : en plat de resis- 
tance, une nouvelle imprimante lui 
donne des capacites de traitement de 
texte bien augmentees; il peut main- 
tenant recevoir le celebre tableau- 
gestionnaire de fichiers "1-2-3" de 
Lotus: ou dater et estampiller de 
I'heure n'importe quel fichier. 
comme un pro. Un programme le 
transforme en "processeur d'idees", 
des memoires virtuelles lui donnent 
des ailes. En guise de dessert, c'est 
l'utilisateur qui croit avoir des ailes. 
installe devant son ecran-cockpit. aux 
commandes d'un Piper, grace a 1'un 
des meilleurs simulateurs de vol du 
marche. Et pour finir en musique, 
comme il se doit, un programme et 
une carte transforment l'Apple en 




instrument musical. Et ce n'est qu'un 
debut, l'annee 1984 sera peut-etre 
celle de Macintosh, mais a coup sur 
aussi celle du lie. 

Hard : place a l'Apple 
"pro" 

Elle s'appelle "Imagewriter". debite 
les textes a 180 cps. au son d'un 
simple "crachouillement". C'est la 
nouvelle imprimante matricielle d'Ap- 
ple. Bidirectionnelle. graphique, a 
traction et friction, elle utilise done 
n'importe quelle forme de papier et 
meme des liasses. Elle dispose de 7 
alphabets (dont le francais). de 8 
jeux de caracteres (avec notamment 
I'espacement proportionnel). d'un 
choix de taille des caracteres. de pos- 
sibility de soulignement et d' impres- 
sion en caracteres gras. L'interessant. 
c'est que Ton peut fixer un choix 
"habituel" (par defaut) grace aux 
micro-interrupteurs de l'imprimante. 
mais que Ton peut aussi. grace a des 
codes de controle, facilement modi- 
fier son choix en cours d'utilisation. 
Bien evidemment. 1' Imagewriter per- 
met d'imprimer les textes saisis avec 
Apple Writer II et Visicalc. L'impri- 
mante coute moins de 5000 francs. II 
faut encore lui rajouter un kit d'ac- 
cessoires vendu un peu moins de 
300 francs pour disposer des deux 
manuels (d'ailleurs detailles et bien 
con<;us) et d'un cable. Attention, 
l'lmagewriter est prevue pour une in- 
terface serie. et non plus parallele. 
comme I'ancienne DOT Matrix. 



Cote interface, on peut done acquerir 
la carte super-serie d'Apple. MID 
propose deja une autre carte "made 
in France", munie de divers perfec- 
tionnements. dont notamment la re- 
copie d'ecran haute resolution par 
commande directe : c'est la SG2E 
vendue un peu plus de 2000 francs 
(mais avec un cable). Aux Etats Unis. 
Practical Peripherals vient lui aussi de 
sortir une nouvelle carte serie aux 
possibilites graphiques. disposant no- 
tamment de 27 commandes permet- 
tant le formatage du texte ou la reco- 
pie d'ecran. C'est la "SeriALL". 
vendue outre Atlantique 159 dollars 
(moins cher que la super-serie d'Ap- 
ple). En attendant la nouvelle impri- 
mante laser qu' Apple pourrait com- 
mercialiser avant la fin de l'annee. 

En temps et en heure 

C'est la nouvelle possibility offerte 
par le ProDOS pour estampiller les 
fichiers. Voila de quoi donner un re- 
gain de faveur aux cartes horloge. 
Les fabricants ne se privent d'ailleurs 
pas d'en tirer argument. Thunder- 
ware souligne lourdement qu'on 
mentionne sa "Thunderclock" dans 
le manuel du ProDOS. Practical Peri- 
pherals affirme que sa "Proclock" a 
ete prevue pour tous les DOS. et Ap- 
plied Engineering souligne que sa 
"Timemaster II" est "officiellement" 
ProDOS, en mettant 1' accent sur le 
prix (129 dollars). 

Toujours plus ! 

C'est de memoire qu'il s'agit, ou plus 
exactement de memoire virtuelle. 
Grace aux pseudo-disques. Leur ca- 
racteristique. c'est bien sur de ne pas 
en avoir. De quoi ? Mais, de dis- 
quette, bien sur. La "Flashcard" de 
Synetix contient jusqu'a 288K de 
memoire, et est livree avec les dis- 
quettes pour le Dos 3.3, le CP/M ou 
le Pascal. Et en prime les disquettes 
de "Wordstar" (le tout pour 629 dol- 
lars). Un logiciel, le "Ramdrive He" 
de Precision Software, permet d'utili- 
ser toute carte 80 colonnes etendue 
comme pseudo-disque (30 dollars, 
mais Finteret de la chose est reduit 
car ce sera precisemen un des avan- 
tages du ProDOS). Par contre, le 
"QuickLoader" de Southern Califor- 
nia Research Group permet, lui, de 
charger immediatement des program- 
mes sans attendre le fonctionnement 
du lecteur de disquettes. Le miracle ? 
Les programmes ont prealablement 
ete inscrits en PROM. Mieux, le DOS 
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est deja livre sur une PROM de la 
carte, d'ou la possibility d'acces di- 
rect, par un simple CTRL-C Reset, a 
la fonction Catalog ou a d'autres 
commandes comme le lancement du 
HELLO. La carte est aussi livree 
avec le COPYA. Plus besoin de l'en- 
trer avant de recopier un pro- 
gramme. Le QuickLoader. d'une ca- 
pacity de 256K. est vendu 180 
dollars. 

Plus vite. . . 

Grace au Spee Demon de M.C.T. 
Une carte accelerant 1' Apple He ou 11 
Plus, qui travaille alors trois fois et 
demi plus vite. II en existe d'autres. 
Celle-ci presente un "plus" : son prix 
de 295 dollars. Qu'en adviendra-t-il 
si jamais on l'importe chez nous ? 

Communiquer 

Avec un modem bien sur. Comme le 
Buzz Box vendu chez Micro Periph, 
lui aussi a un prix interessant : 1100 
francs. Le hie ? II n'a pas encore ob- 
tenu son homologation PIT. Cepen- 
dant, il fonctionne aux normes fran- 
chises, a 300 bauds en full et half 
duplex, et est homologue en Grande 
Bretagne. 

Musique 

Transformer 1' Apple en instrument de 
musique ? Avec la carte Mocking- 
board importee par B1P, 1' Apple ge- 
nere des sons en stereophonic, avec 
possibility de jouer simultanement 6 
notes (avec un programme comme 
Music Construction Set). Et de nom- 
breux jeux (plus de quarante societes 
de logiciel l'ont adoptee) sont Studies 
pour la Mockingboard, comme Zax- 
xon, Exodus, Maze Craze, etc. Atten- 
tion, les prix de la Mockingboard 
peuvent varier de 1500 a 2400 
francs selon les revendeurs. On la 
trouve notamment a la Fnac, a Mi- 
croshop et chez Sideg. 

Logiciels 

De la memoire et du caractere 

Videx vient de sortir Ultraplan, un ta- 
bleur capable de tirer profit de nom- 
breuses cartes d'extension memoire 
(jusqu'a 512K), ainsi que de la carte 
Videx, pour obtenir des ecrans ayant 
jusqu'a 48 lignes et 128 colonnes, 
avec des caracteres tres lisibles et dif- 
ferents niveaux lumineux pour mettre 
en relief telle ou telle partie du ta- 
bleau. 

Un plan de travail electronique 

C'est Think Tank. Un logiciel ameri- 
cain dont on n'a pas fini de parler. 
Aux Etats-Unis, il fait fureur. Le ma- 
gazine A+, qui publie un banc d'es- 
sai de Think Tank dans son numero 
de mars, cite certains de ses utilisa- 



teurs : Steve Wozniak. d' Apple, un 
avocat, le vice-president de la Chase 
Manhattan Bank, entre autres. 
Concretement. Think Tank est un 
outil ideal pour mettre en forme ses 
idees. On y entre des titres, des sous- 
titres, des paragraphes, qu'on peut 
classer. Les idees brutes se structu- 
red, s'organisent pour former un 
plan coherent. Bien pratique pour 
etablir le plan d'un article, les idees 
force d'un memo. Un outil diable- 
ment utile a tous les professionnels 
de l'ecriture. Mais les utilisations sont 
illimitees. Wozniak s'en est servi pour 
faire le planning d'un festival de 
rock, le banquier pour classer les 
notes prises au cours de reunions. Le 
programme peut meme classer auto- 
matiquement par ordre alphabetique 
les sous-chapitres. numeroter les pa- 
ragraphes, etc. On peut ensuite im- 
primer sous diverses formes le resul- 
tat de son travail. Ce programme 
ecrit par Living Videotex necessite 
deux lecteurs et un Apple II pour 
fonctionner. Son prix outre Atlanti- 
que est de 150 dollars. 

Lotus, es-tu la ? 

A quand Lotus 1-2-3 sur Apple, de- 
mandait Pom's dans son dernier nu- 
mero ? Le voici ! II tournera sur un 
Apple II Plus ou He, a condition 
d'utiliser le lecteur de disquettes 
Rana 8060/2 (incorporant une carte 
MS-DOS et vendu, helas. pratique- 
ment le prix d'un IBM PC...). Prix de 
Lotus : 495 dollars. Alleluia ? 

Des fenetres 

En attendant, les amateurs de pro- 
grammes integres pourront se 
contenter de Jane (voir Particle de 
Daniel Garric). Jane est vendu en 
France par Ordinateur Express pour 
moins de 4.000 francs avec carte et 
souris. II est en frangais : il a meme 
ete concu dans notre langue. Coco- 
rico ! Aux Etats-Unis, un autre pro- 
gramme integre commence a faire 
parler de lui, c'est Jack 2 (la nouvelle 
version d' Incredible Jack) de Busi- 
ness Solutions, permettant de faire 
du traitement de texte, des calculs ou 
des graphiques, sur la meme page et 
sans changer de disquette. Avec im- 
pression de ce qu'on voit sur l'ecran. 
Jack 2 n'a pas de fenetres, mais dis- 
pose de dessins d'enveloppes qu'on 
peut ouvrir (50 dossiers simultanes 
maximum). A voir. 

Imprimer Visicalc en travers ? 

C'est possible avec un logiciel sud- 
africain, Sidewise, disponible par l'in- 
termediaire de Pace Software Sup- 
plies en Grande Bretagne. Utile pour 
les tableaux larges. qui depassent la 
plus grande largeur des imprimantes. 

NDLR : nous rappelons a cet egard 
que le programme Multiplan du Ma- 



cintosh possede d'origine la possibi- 
lity d'imprimer un tableau en travers 
si on le souhaite. 

Vol au dessus d'un nid d' Apple 

AprSs une bonne seance de travail, 
decollez aux commandes de votre 
Apple. Avec Flight Simulator II de 
SubLogic (en vente notamment chez 
Sideg). On n'avait encore pas vole 
ainsi sur Apple. En couleurs. D'un 
bout a l'autre des Etats-Unis (le pro- 
gramme permet d'utiliser une soixan- 
taine d'aeroports. dont les pistes sont 
reproduites le plus fidelement possi- 
ble, d'apres des cartes aeriennes). 
On peut definir soi-meme les condi- 
tions de vol (heure, saison. nuages, 
force du vent), voler de jour ou de 
nuit dans un cockpit parfaitement 
equipe : VOR pour la radio-naviga- 
tion. 1LS pour les atterrissages aux 
instruments, instruments numeriques, 
horizon artificiel en trois couleurs. 
etc. Le programme est livre avec un 
manuel de 88 pages et quatre cartes 
de radio-navigation. Un simuiateur 
subtil dont 1' utilisation necessite un 
doigte certain (Bruce Artwick. son 
auteur. essaierait actuellement de le 
faire certifier par la FAA, I'autorite 
aeronautique americaine). Que ceux 
qui ont reussi a poser leur Piper, sur 
la piste et en bon etat, m'ecrivent. Je 
ne suis pas encore parvenu a eviter 
le crash en finale... 

Adresses 

Apple Seedrin - av. de l'Oceanie - 
ZA de Courtaboeuf - B. P. 131 - 
91944 Les Ulis Cedex - Tel (6) 928 
0139 

Applied Engineering - P. O. Box 

798 - Carrolton TX 75006 - USA 
Business Solutions - 60 East Main 
Street - Kings Park - NY 11754 - 
USA 

Living Videotext Inc. - 450 San 

Antonio Road no. 56 - Palo Alto CA 
94306 - USA 

MID - 96 bd. Richard Lenoir - 

75011 Paris -Tel 357.82.30 

Micro Periph - 62 rue Ducouedic - 

75014 Paris - Tel 321.53.16 
Ordinateur Express - 3 rue de Pe- 
louze - 75008 Paris - Tel 522.15.15 
Pace Software Supplies - 92 New 
Cross Street - West Bowling - Brad- 
ford BD58BS - UK 

Practical Peripherals - 131245 La 
Baya Dr. - Westlake Village - CA 
91362 - USA 

Sideg - 170 rue Saint Charles - 

75015 Paris - Tel 557.79.12 
Southern California Research 
Group - P. O. Box 2231 - S Goleta 
CA 93118 -USA 

Synetix - 10635 NE 38th Place - 
Kirkland WA 98033 - USA 
Thunderware Inc. - 44 Hermosa 
Av. - Oakland CA 94618 - USA 
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Courricr des lecteurs 

Alexandre Duback 



Je me suis servi du iogiciel Omnis 
(gestion de fichiers) une dizaine de 
fois de maniere satisfaisante. Hier, je 
le remets en route et voila que I' Ap- 
ple devient litteralement "fou". II n'y 
a plus d'affichage possible, des carac- 
teres desordonnes et inverses appa- 
raissant a I'ecran. Et plus aucun Iogi- 
ciel ne fonctionne. Ceci m'etonne 
d'autant plus que. lors du dernier 
emploi. tout etait parfaitement nor- 
mal. Qu 'en pensez-vous ? Pourriez- 
vous me dire ce qui se passe ? 

Ayant mis en route I'autotest de 1' Ap- 
ple //e, j'ai vu apparaitre a I'ecran 
"Kernel OK" puis. Tayant recom- 
mence, est apparu "RAM" suivi de 
quelque chose d' incomprehensible, 
puis "ROM ". 

Jean-Albert Jouve - BP 4169 - Tana- 
narive - Madagascar 

Apres des essais intensifs sur Apple 
e d' Omnis dans toutes ses options, 
il nous a ete impossible de provo- 
quer une panne analogue a celle que 
vous decrivez dans votre lettre. Nous 
ne pouvons done faire que des hy- 
potheses. 

Ce genre de panne se produit parfois 
sous le systeme d' exploitation CP M 
a la suite de fausses manoeuvres, en 
particulier quand on tente de "booter 
a chaud" (par CTRL-C) a partir 
dune disquette ne con tenant pas le 
systeme. Bien qu'Omnis soit ecrit en 
Pascal, rien n'interdit de penser 
qu'une manoeuvre anormale avec 
les disquettes ait pu etre la cause de 
vos ennuis. 

Une autre cause possible reside dans 
l'alimentation electrique de l'ordina- 
teur. II arrive que des micro-coupures 
extremement breves ne fassent pas 
decrocher completement et produi- 
sent des resultats surprenants. II en 
est de meme avec certaines brusques 
sautes de tension. Si vous vous trou- 
vez dans des conditions d'alimenta- 
tion electrique instables. un regula- 
teur (ondulateur) pourrait PEUT- 
ETRE ameliorer la situation. Meme 
probleme avec les decharges d'elec- 
tricite statique. Bannissez toute mo- 
quette au sol, et essayez d'avoir une 
bonne terre dans votre installation 
electrique. 

Enfin. il est arrive egalement. y 
compris sous DOS. qu'une tempera- 
ture de fonctionnement exageree ait 
des repercussions bizarres. Ceci peut 
se produire. outre le cas d'une tem- 
perature exterieure elevee. quand de 
nombreuses cartes sont installees si- 
multanement. Certaines cartes d'in- 



terface imprimante. 80 colonnes ou 
MEM DOS, ont en particulier ten- 
dance a se conduire en radiateurs. 
Vous pouvez fonctionner capot ou- 
vert (attention, vous supprimez alors 
l'effet de cage de Faraday du He. 
gare a l'electricite statique). ou instal- 
ler un petit ventilateur (il y en a de 
specialement etudies). 

Et puis....sauvegardez souvent une 
copie de vos fichiers... 

Contrairement a la reponse d'Olivier 
Herz au Docteur Selosse (Pom's 11 
page 69). il est assez simple d'aug- 
menter le nombre de titres du catalo- 
gue, au-dela de 105. J'ai d'ailleurs 
realise une disquette preparee pour 
recevoir 217 titres en face 1 et 161 
titres en face 2. Elle est facilement 
copiable par COPY A. et les fichiers 
Sont transferases par FID sans pro- 
bleme. Les lecteurs de Pom 's qui le 
souhaitent pourront en recevoir. 
apres envoi d'un cheque de 45 
francs a I'adresse indiquee en fin de 
mon courrier. une copie sur disquette 
Maxell MD1-D. 

Void comment il faut s'y prendre 
pour constituer une disquette a cata- 
logue etendu. Prendre tout d'abord 
un utilitaire permettant la lecture et 
I edition directe de pistes/secteurs sur 
la disquette. Le catalogue est norma- 
lement range de $11 -OF (piste 17. 
secteur 15) a $11-01. Au debut de 
chaque secteur se trouve I'adresse du 
secteur suivant : on lit ainsi "00 11 
0C" au debut de $11 -0D. ce qui si- 
gnifie que la suite du catalogue est 
en $11 -0C. 

Si I'on entre "00 10 OF" au debut de 
$11-01. on indique au DOS que le 
catalogue se poursuit en piste 16. 
secteur 15. II suffit de continuer ainsi 
autant que necessaire. Bien entendu. 
apres chaque modification, il ne faut 
pas oublier de recopier le secteur 
modifie sur la disquette. II reste enfin 
a modifier la table d'occupation. 
pour indiquer au DOS que la piste 
$10 est occupee et eviter ainsi la 
destruction du catalogue lors de la 
sauvegarde de fichiers : mise a des 
octets en position $78 a $7D de la 
piste $11. secteur $00. 

A 1'inverse. on peut reduire la taille 
du catalogue pour sauver des pro- 
grammes importants. Cela permet de 
recuperer 13 ou 14 secteurs par dis- 
quette. soit plus de 3K. Des lors. 
apres liberation des pistes $00 a $02 
(si on ne met pas le DOS sur la dis- 
quette). une disquette peut contenir 
140K de fichiers. 



S. Thelier - SODEC - 1 rue de la Lys 
- 59253 La Gorgue 

Merci pour cette lettre interessante. 
Permettez-moi par la meme occasion 
de blanchir Olivier : j'avais complete 
le Courrier apres son depart, et laisse 
son nom car il en avait traite la ma- 
jeure partie. 



1) Je tiens a faire profiler vos lecteurs 
d'une information que j'ai mis trois 
mois a obtenir. Ayant la carte Chat 
Mauve et une imprimante Epson, j'ai 
eu la desagreable surprise de consta- 
ter que les logiciels ecrits en Pascal 
(Omnis et Quick file, et Pascal lui- 
meme) refusent obstinement de re- 
connaitre I'imprimante connectee au 
slot 1. Quelqu'un m'a finalement 
donne la solution : il suffit tout bete- 
ment d'enlever la puce situee juste 
au-dessus du "T" de CHAT MAUVE 
(il s'agit d'un buffer), et ca marche I 
Le plus extraordinaire dans cette his- 
toire est que 1'absence dudit buffer 
ne change apparemment rien dans le 
fonctionnement de la carte, aussi 
bien pour ses fonctions graphiques 
que pour l'extension 64K. Apple et 
le Chat Mauve n'ont. parait-il. pas 
encore trouve I'explication. 

2) Je tiens a vous feliciter par ailleurs 
pour la qualite de votre revue et le 
haut niveau des programmes que 
vous proposez. J'ai cependant eu 
bien des difficultes avec certains 
d' entre eux : je n'ai en particulier 
jamais reussi a faire fonctionner cor- 
rectement le programme de copie 
ecran texte HCT.OBJ (sur les dis- 
quettes a partir de la 7). II n 'imprime 
qu'une ligne sur 3. mime si j'inhibe 
T impression ecran par un POKE 
1657.80. 

3) Une suggestion : j'aimerais des 
programmes utilisant les possibilites 
des cartes 80 colonnes (par exemple 
pour la gestion de masques, les 
menus a barre. les catalogues). C'est 
vraiment deprimant de revenir a ce 
vieil afficha'ge etrique en 40 colonnes 
apres avoir travaille sur Visicalc ou 
Apple Writer en 80 colonnes ! 

Jean-Pierre Januel - 5 rue Duperre - 
75009 Paris 



1) Nous vous remercions pour votre 
lettre au sujet de la carte RVB Chat 
Mauve. Nous avions en effet parle 
du probleme dans le Courrier du 
Pom's 10, page 72. 

2) Le programme de copie d'ecran 
texte ne fonctionne helas pas avec 
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tous les modeles de cartes paralleles 
et d'imprimantes. Nous n'avons pas 
encore trouve le moyen de le faire 
fonctionner de facon universelle. 

3) En ce qui concerne les cartes 80 
colonnes, on retombe immediate- 
ment sur le probleme suivant : elles 
utilisent en general des codes diffe- 
rents. On ne pourrait done proposer 
des programmes que pour la 80 co- 
lonnes Apple lie ou Chat Mauve, qui 
sont en theorie gerees de la meme 
facon. ce qui semble d'ailleurs peu 
evident vu les problemes du Pascal 
avec la Chat Mauve et une Epson. 
Nous devons deja tester les program- 
mes pour voir a chaque fois s'ils 
marchent sur il Plus et He ! Si Ton 
devait tester avec des cartes 80 co- 
lonnes ou de multiples configurations 
d'imprimante et de carte, on ne s'en 
sortirait plus. 



Pom's parait dorenavant tous les 
deux mois. Bravo ! Peut-on esperer 
une parution mensuelle ? Est-ce un 
manque d 'articles ou une diffusion 
trop restreinte. ou encore la probable 
concurrence du "petit" here Macin- 
tosh ou enfin la suprematie d'IBM 
qui vous empechera de franchir le 
pas ? 

La lecture de POKEs a gogo (Pom's 
11) m'a fait decouvrir quelques im- 



perfections qui m'avaient echappe. 
Mea culpa. Je rectifie le tir. 

Adresse 48 : faire un POKE 48,C*17 
avec C = code de la couleur GR (0- 
15). 

Adresses 55/56 et 57/58: le DOS 
remet automatiquement les ancien- 
nes valeurs. II vaut mieux poker dans 
les adresses d' entree/ sortie du DOS 
(43603-4 et 43605-6). 
Adresses 60/67: avant lappel de 
MOVE ou de VERIFY, le registre Y 
doit etre mis a zero. Pour realiser 
ceci. faire preceder la serie de 
POKEs par un CALL -610. 

L 'adresse du tampon utilise par 
RWTS est donnee par POKE IOB + 
9, A/256 : POKE IOB + 8 . A - 256 
* PEEK(IOB+ 9). 

Les POKEs qui permettent d'activer 
ou de desactiver une carte d exten- 
sion ne sont valables que si la carte 
est dans le port (slot) 0. De fagon 
plus generate, il faudra faire POKE 
XXXXX + 16*S pour une carte inse- 
ree dans le slot S. 

Page 18 du Pom's 11 : corriger les 
POKEs permettant d'activer les 12K 
du bloc 1 : 

POKE 49288.0 (-16248) 
POKE 49289.0 (-16247) 
POKE 49290.0 (-16246) 
POKE 49291.0 (-16245) 

Roland Jost - 4 allee Spach - 67000 
Strasbourg ■ 



Erratum 

Dans un souci de presentation, nous 
avions ajoute au programme de 
Gilles Mauffrey (Pom's 11. page 71) 
des REMs (1 a 3). oubliant que le 
programme ne marcherait alors plus. 
11 faut done eliminer ces remarques. 
qui d'ailleurs ne figurent pas dans le 
programme de la disquette d'accom- 
pagnement du numero 11. 

De nouveaux developpements atten- 
dent les lecteurs interesses par la me- 
thode « Alienor » parue dans le 
Pom's 11. Les personnes concernees 
peuvent contacter A. Guillez au 128 
avenue de la Republique - 75011 
Paris - Tel Labo MEDIMAT 329. 79.26. 



Multiplan pour Apple 

Une legere confusion au moment 
de l'impression du livre « Multiplan 
pour Apple II Plus et Apple He » a 
fait que le premier tirage 
comporte. en page 5. un Som- 
maire manifestement trop som- 
maire (une page seulement). Les 
acheteurs de cette premiere edi- 
tion peuvent envoyer a Pom's une 
lettre comportant une enveloppe 
timbree a leur adresse et un mot 
demandant le sommaire detaille : 
ils recevront gratuitement en re- 
tour de courrier ce sommaire en 
quatre pages. 



LILLE LILLE LILLE LILLE 



m b d C App,e //e ' A PP ,e Mac-lntoch, 

BFM 1 86. dragon, oric, alice, casio 

~* u ~i ^ disquettes, Flexettes, 3M, Verbatim 
m.D.d.C. 

listing, rubans encreurs. 

m b d C Je conse ''» ,e materiel, les peripheriques 
les logiciels, les consommables, 

m.b.d.C. ,e S.A.V. sur place. 

le Service Complet. 

JpC|L m b d C 1 72 » RUE SOLFERINO. 59800 LILLE — TEL. (20) 57.91 .87 
CCD .... QUVERT DU MARDI AU SAMEDI DE 9h30 d 12h ET DE 14h30 £ 19h 



Courricr des clubs 



Depuis que nous avons acces a un 
Apple, nous souffrons des que nous 
en sommes eloignes. Pensant que 
cette etrange machine a fait d'autres 
victimes. nous venons de fonder un 
club pour les rassembler. II est ouvert 
a tous. du debutant au docteur en 
informatique. 

CTRL RESET - Club Informatique - 
172 Bd. Haussmann - 75008 Paris 
Richard Chalet - Secretaire General - 
20 rue Nelaton - 75015 Paris 

Nous avons cree depuis quelques 
mois 1'association Info-Maniaques. 
Son but est d'abord de fournir un 
lieu de reunion et d'echanges a des 



personnes qui ont en commun 
d'aborder ou d'approfondir les divers 
domaines de la micro-informatique. 
Tres rapidement. des personnes de 
tous ages souhaitant recevoir une ini- 
tiation sont venues nous voir. Nous 
comptons actuellement 60 adherents 
et chaque mois une dizaine de nou- 
velles adhesions. 

[-'association met a la dispostion de 
ses adherents divers materiels : 
Apple. Multitech MPF II. Jupiter Ace. 
Alice, Thomson T07. 

Info-Maniaques - 62 avenue Paul 
Santy - 69008 Lyon - Tel (7) 
801.43.19 



Nos prochaines reunions sont les sui- 
vantes : "le point sur les tableurs", 
anime par Herve Thiriez le 16 mai 
avec presentation de Multiplan et 
Multichart sur Macintosh; "les techni- 
ques graphiques" avec demonstra- 
tion de vision en relief, animation par 
sprites, decoupage d'ecran et incrus- 
tations, carte haute resolution 
1024*1024. le 20 juin. Les reunions 
ont lieu a 19H au 110 avenue du 
General Leclerc. a Paris. 

Ma Pomme - 6 rue Paul Sauniere - 
75016 Paris - Jean-Frangois Duvivier 
(1) 558.05.78 le soir. 
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The Apple House (how to compu- 
terize your home using your Apple 
Computer) de John Blankenship. 
Prentice Hall - 66 Wood Lane End. 
Hemel Hempstead. Herts. HP2 4RG, 
Royaume Uni - 153 pages - $19.45. 

Voici un livre qui decrit comment 
concevoir un systeme qui fasse exe- 
cuter a votre Apple un ensemble de 
tSches liees a 1' habitation telles que le 
controle de la securite. des lumieres 
ou du telephone. Une des originalites 
de ce systeme est qu'il accepte des 
ordres verbaux et reagit en fournis- 
sant une reponse du meme type. 
Mais une certaine connaissance de 
l'electronique et 1'achat de compo- 
sants sont necessaires a la realisation 
de tout ou partie du systeme. Cet 
ouvrage est tres bien structure et 
comporte en appendice les listings de 
tous les programmes. II est possible 
aussi d'obtenir une disquette les 
contenant au prix de $12.50. 

Jean -Luc Boyer 

Exercices pour Apple II. de Fre- 
deric Levy. Editions du PSI - 148 
Pages - 90 FF. 

II est agreable de voir que le listage 
de programmes n'est pas le seul but 
de ce livre. Bien poser le probleme 
et realiser une analyse sont conside- 
rees comme des etapes importantes 
et mises en valeur par l'auteur. De 
meme. on apprecie beaucoup les 
programmes commentes d'une facon 
precise. Cet ouvrage comprend une 
premiere partie donnant les enonces 
des exercices ainsi que leur analyse, 
la deuxieme partie etant reservee aux 
programmes proposes comme solu- 
tions (en Basic). Les problemes abor- 



des correspondent a quatre themes 
principaux (calcul. manipulation de 
tableaux, traitement de chaines et 
graphiques). En conclusion, ce livre 
apporte une excellente formation a la 
programmation. 

Jean-Luc Boyer 

36 programmes Apple II pour 
tous, de Jacques Boisgontier, Edi- 
tions du PSI - 126 pages - 90 FF. 

Apres un bref rappel des instructions 
graphiques specifiques a 1' Apple II. 
l'auteur fournit un ensemble de pro- 
grammes (en Basic) sur 3 themes dif- 
ferents : l'education. la gestion et les 
jeux. Nous regrettons le manque 
d' explications pour certains program- 
mes, ainsi que le peu d'originalite 
des sujets traites. que Ton retrouve 
dans beaucoup d'ouvrages deja 
parus. Malgre cela. il y a une bonne 
diversite dans le choix des enonces. 

Jean-Luc Boyer 

Apple Graphics - Activities 
Handbook de Harold J. Bailey et J. 
Edward Kerlin - Prentice Hall Inter- 
national - 422 pages - $ 11.95. 

Ce livre est agreabiement presente, 
et sa pedagogie plaisante : tests de 
comprehension, exercices, discus- 
sions, exemples. II contient de tres 
nombreux exemples de programmes. 
Nombre d'entre eux sont de bonne 
taille (allant jusqu'a plusieurs centai- 
nes destructions;. Le revers de la 
medaille est que. lors de la retrans- 
cription au clavier, il est presque im- 
possible de ne pas commettre quel- 
ques erreurs de frappe. Au niveau 
d'un apprentissage. c'est d'autant 
plus redhibitoire que les resultats a 



obtenir ne sont en general pas de- 
crits : il s'agit pour le lecteur d'exer- 
cer sa capacite de comprehension. 
Moralite : la disquette "oprionnelle" 
(a $26) est de fait quasiment obliga- 
toire. 

D une facon plus generale. pour un 
ouvrage consacre au graphique. 
celui-ci manque nettement d' illustra- 
tions. On peut aussi regretter un 
manque de distinction entre I'essen- 
tiel et l'accessoire. Deux exemples a 
I'appui de cette affirmation : 

• les graphiques dits "alphanumeri- 
ques". crees en basse resolution a 
partir de chaines de caracteres, ne 
sont sans doute pas d'usage quoti- 
dien; c'est une "activite" parmi 
d'autres d'un "module" basse re- 
solution; 

• a I'inverse. il est d'usage courant 
d'utiliser les "shapes" en graphi- 
que haute resolution; or ce point 
n'est traite que dans un chapitre 
sur les techniques avancees. 

Mais 1' ensemble est interessant et 
I on trouvera dans cet ouvrage de 
quoi satisfaire le debutant ainsi que 
le programmeur experiments qui 
souhaite encore progresser. Environ 
100 pages s'adressent au debutant. 
Les 100 pages suivantes abordent les 
techniques avancees. cependant que 
les 200 dernieres pages sont consa- 
crees aux problemes de geometrie 
plane, puis dans I'espace (c'est peut- 
etre un peu trop). Quelques annexes, 
dont on peut fort bien se passer, 
completent l'ouvrage. 

Guy Mathieu 



Pom's n" 12 



pom's 



• la disquette HAIFA Source | | au prix de 55 F la disquette (cf. Pom's n" 5) 



• lc logiciel H-BASIC 

• le logiciel MUSIC 

• le Disk Manager 

• DBSTAG (CP/M) 

• Disquette de jeux A 

• Disquette de jeux B 



□ au prix de 150 F (cf. Pom's n° 8) _ 

□ au prix de 80 F (cf. Pom's n" 10) _ 

□ au prix de 450 F (cf. Pom's n" 11) 

□ au prix de 450 F (cf. Pom's n° 11) 

□ au prix de 80 F (cf. Pom's n° 12) 

□ au prix de 80 F (cf. Pom's n° 12) 



Recueil n° 1 de Pom's (n 1 a 4) 

□ avec ses 3 disquettes au prix de 280 F 

~2 sans disquette au prix de 130 F. 



I | les 3 disquettes seules au prix de 150 F 

Recueil n" 2 de Pom's (n™ 5 a 8) - Parution 15 avril 

□ avec ses 4 disquettes au prix de 320 F 

□ sans disquette au prix de 130 F. 



□ les 4 disquettes seules au prix de 190 F 

Je desire recevoir : 

• les numeros de la revue Pom's 4 | | 7 

au prix de 35 F le numero 



□ 8 



• les numeros de la revue Pom's f~J 9 

au prix de 40 F le numero 



□ 10 Dll D12 



• les disquettes d'accompagnement des numeros 

□ i rj2 rj3 rj4 rj5 rj6 rj7 as rj9 rjio an ni2 

au prix de 55 F par disquette 



Je desire m'abonner pour 6 numeros a partir du n" 

| | sans disquette au prix de 200 F 

1} avec disquettes au prix de 480 F 



Montant 
TTC 



TOTAL : 

Envoyez ce bon de commande et votre reglement a : 

Editions MEV — 64-70, rue des Chantiers — 78000 Versailles 



Norn 



Adresse 



Ces tarifs comprennent 1' envoi postal en France Metropolitaine. CEE et Suisse (voie aerienne exceptee) 
Supplement avion : 10 F par numero et / ou disquette 
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pouri com[prendre, pour gagner, pour s'e^ 
Le 
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n unlclub 



avec des idees 
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Pour en savoir plus sur le Club Apple - le fruit de la passion - et connaitre tous les avantages que nous reservons aux 
membres du club, decoupez desaujourd'hui le bon et retournez-le a Club Apple, avenue de I'Oceanie -ZAde Courtabceuf - BP 131, 
Les Wis cedex 91944. Vous recevrez sans engagement de votre parttoutes les informations pour devenir membre du club. 



Norn _ 
Adresse 



Prenom 



Code postal 




Vous y trouverez : 

I'actualite et les 
tendances de 
I'informatique individuelle 
• les bancs d'essais 
des principaux materiels 
• des panoramas 
et des tests comparatifs 
• le point des grandes 
manifestations internationales 
• des articles d'initiation 

• des syntheses 
• des programmes 

• des interviews 
"exemplaires" • des conseils 

• des idees 
• des astuces 



22 FF chez votre 
marchand 
de journaux 
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